ich habe ein Problem: bei Auswahl des Listenfeldes mit Datum füllen sich die Textboxen korrekt, aber die USERFORM aktualisiert sich nicht bei erneuten Datumsauswahl, so dass "alte", vorangegangene Daten sichtbar bleiben. Bei Speichern ist es dann fatal....
Ich möchte alserreichen, dass bei jeder erneuten Datumsauswahl im Listenfeld die USERFORM aktualisiert wird und die Textboxen die richtigen Daten gemäß ausgewählten Datum anzeigen.
Datei
https://www.herber.de/bbs/user/116464.xlsm
Hier der Code
Private Sub cboList_Change()
Dim r As Long, x As Long, s As String, p As Long
txtFlight.Text = ""
txtFlight2.Text = ""
txtFlight3.Text = ""
x = cboList.ListIndex
If x = -1 Then Exit Sub
s = cboList.List(x): p = InStr(s, "|"): r = Val(Mid(s, p + 1))
txtFlight.Text = Cells(r, 2).Value
If Cells(r + 1, 1) = Cells(r, 1) Then txtFlight2.Text = Cells(r + 1, 2).Value
If Cells(r + 2, 1) = Cells(r, 1) Then txtFlight3.Text = Cells(r + 2, 2).Value
End Sub
Private Sub UserForm_Initialize()
Dim r As Long
cboList.AddItem Cells(1, 1).Text + " |1"
r = 2
While Cells(r, 1) ""
If Cells(r, 1) Cells(r - 1, 1) Then cboList.AddItem Cells(r, 1).Text + " |" + CStr(r)
r = r + 1
Wend
End Sub
Ich hoffe jemand kann mir hier weiterhelfen,
vielen Dank Lea