Listbox mit Datum
28.03.2018 04:56:08
Maik
ich habe eine Listbox in der 3 Spalten aus meiner Tabelle eingelesen werden, per
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
ListBox1.List(ListBox1.ListCount - 1, 1) = Format(CStr(Tabelle1.Cells(lZeile, 2).Value)," _
hh:mm")
ListBox1.List(ListBox1.ListCount - 1, 2) = Trim(CStr(Tabelle1.Cells(lZeile, 3).Value))
lZeile = lZeile + 1
Problem was ich habe ist das wenn mehrere Einträge am gleichen Tag gemacht wurden die Listbox zwar alle Einträge anzeigt, ich aber immer nur den Eintrag mit dem 1 Datum in meine Textboxen zurück holen kann. Die Restlichen sind dann einfach leer.
Liegt das jetzt daran wie die Daten in die Listbox geladen werden oder wie die Daten aus der Tabelle in die Text und ComboBoxen geladen werden.
Daten zurück holen
If ListBox1.ListIndex >= 0 Then
lZeile = 3
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
TextBox2 = Trim(CStr(Tabelle1.Cells(lZeile, 6).Value))
TextBox4 = Tabelle1.Cells(lZeile, 14).Value
TextBox5 = Tabelle1.Cells(lZeile, 15).Value
ComboBox2 = Tabelle1.Cells(lZeile, 3).Value
ComboBox3 = Tabelle1.Cells(lZeile, 4).Value
ComboBox4 = Tabelle1.Cells(lZeile, 5).Value
ComboBox5 = Tabelle1.Cells(lZeile, 8).Value
ComboBox6 = Tabelle1.Cells(lZeile, 9).Value
ComboBox7 = Tabelle1.Cells(lZeile, 13).Value
ComboBox8 = Tabelle1.Cells(lZeile, 12).Value
DTPicker1 = Tabelle1.Cells(lZeile, 1).Value
DTPicker2 = Tabelle1.Cells(lZeile, 2).Value
DTPicker3 = Tabelle1.Cells(lZeile, 11).Value
Exit Do
End If
lZeile = lZeile + 1
Loop
End If
Grüße
Maik
Anzeige