Listbox and Textbox
05.02.2009 11:19:00
Ludmila
Aus der Tabelle("Termine") lasse ich die Daten
gemäß ComboBox1 in eine Listbox einlesen
In der Tabelle Termine sind in Spalte A jeweil
das Datum von Zeile 1 bis 105 gleich z.B. 2.2.09
ab 106 bis 201 z.B. 3.3.09
Wenn ich nun den Listboxeintrag anklicke
werden nicht die korekten Daten in die
Textbox eingelesen sondern die Daten eines anderenDatums.
Wo liegt der Fehler
Danke!
Gruß
Ludmila
Private Sub ComboBox1_Change()
On Error Resume Next
Dim Datum As Date
Dim DatumF As Date
Dim DatumL As Variant
Dim Uhr1(105) As Variant
Dim Term1(105) As String
Dim Lieg1(105) As String
Dim bez(105)
Dim endrow As Integer
Dim I As Integer
Dim A As Integer
Datum = UserForm12.ComboBox1.Value
endrow = Sheets("Termine").Cells(Rows.Count, 1).End(xlUp).Row
A = 1
For I = 1 To endrow
DatumF = Sheets("Termine").Cells(I, 1)
If DatumF > Datum + 2 Then Exit For
If DatumF = Datum Then
Uhr1(A) = Sheets("Termine").Cells(I, 2)
Uhr1(A) = FormatDateTime(Uhr1(A), vbShortTime)
Term1(A) = Sheets("Termine").Cells(I, 3)
Lieg1(A) = Sheets("Termine").Cells(I, 4)
bez(A) = Sheets("Termine").Cells(I, 5)
A = A + 1
End If
Next I
For I = 1 To 105
If Uhr1(I) = "" Or Uhr1(I) = "00:00" Then Exit For
If Len(Term1(I)) > 45 Then Term1(I) = Mid(Term1(I), 1, 45) & "..."
UserForm12.ListBox1.AddItem Uhr1(I)
UserForm12.ListBox2.AddItem Term1(I)
UserForm12.ListBox3.AddItem Lieg1(I)
UserForm12.ListBox4.AddItem bez(I)
Next I
End Sub
Private Sub ListBox2_Click()
Dim A As Integer
Dim endrow As Integer
Dim Uhr As Variant
Dim Name As String
Dim bez As Variant
endrow = Sheets("Termine").Cells(Rows.Count, 1).End(xlUp).Row
A = UserForm12.ListBox2.ListIndex + 1
Uhr = Sheets("Termine").Cells(A, 2)
Uhr = FormatDateTime(Uhr, vbShortTime)
Name = Sheets("Termine").Cells(A, 3)
bez = Sheets("Termine").Cells(A, 4)
UserForm12.TextBox1.Text = Uhr
UserForm12.TextBox2.Text = Name
UserForm12.TextBox3.Value = bez
End Sub
Private Sub UserForm_Initialize()
Dim Datum As Date
Dim I As Integer
Datum = Date
Datum = Datum - 2
For I = 1 To 31
Datum = Datum + 1
UserForm12.ComboBox1.AddItem Datum
Next I
End Sub