|
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
|