Listbox and Textbox

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