Thema Datum  Von Nutzer Rating
Antwort
Rot Problem mit dem Einlesen von Uhrzeiten in eine Userform von Tabelle
29.12.2022 11:54:26 Alexander
Solved
29.12.2022 12:50:59 ralf_b
NotSolved
29.12.2022 13:37:21 Alexander
NotSolved
29.12.2022 14:04:10 ralf_b
NotSolved
29.12.2022 15:23:08 Alexander
NotSolved
29.12.2022 17:15:26 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Alexander
Datum:
29.12.2022 11:54:26
Views:
151
Rating: Antwort:
 Nein
Thema:
Problem mit dem Einlesen von Uhrzeiten in eine Userform von Tabelle
Guten Tag zusammen,
 
Ich programmiere gerade für meine Studienarbeit ein Excel Tool und bin dabei auf folgende Problematik gestoßen.
Zunächst zu mir, ich bin absoluter Anfänger in VBA und habe mir das meiste über YouTube Videos und Internet Foren selbst beigebracht.
 
Mein Problem besteht darin, dass ich über eine Userform Daten zu einer Störung erhebe und diese im Hintergrund in ein Vorlage Tabellenblatt einlese.
Diese werden mir dann in der Listbox meiner Userform wiedergegeben. Somit kann ich ständig neue Störungen hinzufügen, Störungen updaten oder Störungen löschen. Um Störungen abzudaten kann ich die Werte per Doubleklick aus der Listbox in meine Textfelder einlesen. Jetzt hab ich zur Zeit das Problem, dass die Uhrzeiten nicht korrekt eingelesen werden. Dies konnte ich für die erste Zeile meiner Listbox beheben siehe angehängten Code. Jetzt wäre meine Frage wie bekomme ich dass ganze Dynamisch hin, heißt wie lese ich das korrekte Format der Uhrzeit ein, egal welche Zeile in der Listbox ich aktiviere?
 
Meine Datensätze beginnen ab Zeile 8 und die Uhrzeiten stehen in den Spalten C und D.
 
Nachfolgend mein Code (mit der Lösung für die erste Zeile):
 
Sub lst_A_Data_Stoerungen_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
          
    Dim isTime_Start As Date
    Dim isTime_Ende As Date
     
    Dim fTime_Start
    Dim fTime_Ende
    
    isTime_Start = Range("C8")
    fTime_Start = Format(isTime_Start, "hh:mm:ss")
    
    isTime_Ende = Range("D8")
    fTime_Ende = Format(isTime_Ende, "hh:mm:ss")
    
    txt_A_ID.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 0)
    txt_A_Station.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 1)
    txt_A_TS_Start.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 2)
    txt_A_TS_Start.Value = fTime_Start
    txt_A_TS_Ende.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 3)
    txt_A_TS_Ende.Value = fTime_Ende
    txt_A_OS_Start.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 4)
    txt_A_OS_Ende.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 5)
    txt_A_Stoerungs_ID.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 7)
    txt_A_Stoerung.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 8)
    txt_A_Stoerung_Bemerkung.Value = lst_A_Data_Stoerungen.List(lst_A_Data_Stoerungen.ListIndex, 9)
   
End Sub
 
Für jegliche Hilfestellung in meinem Anliegen bin ich euch dankbar.
Gruß Alexander

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Problem mit dem Einlesen von Uhrzeiten in eine Userform von Tabelle
29.12.2022 11:54:26 Alexander
Solved
29.12.2022 12:50:59 ralf_b
NotSolved
29.12.2022 13:37:21 Alexander
NotSolved
29.12.2022 14:04:10 ralf_b
NotSolved
29.12.2022 15:23:08 Alexander
NotSolved
29.12.2022 17:15:26 ralf_b
NotSolved