VBA Fromular mit ExcelDaten dynamisch füllen

Private Sub UserForm_Initialize()
'Dropdown Listen füllen
Priorität.List = Sheets("DropDown").Range("A2:A6").Value
Kunde.List = Sheets("DropDown").Range("E2:E10").Value
Bereich.List = Sheets("DropDown").Range("F2:F7").Value
'DatePicker aktualisieren
erfasstam.Value = Date
fälligzum.Value = Date
'Uhrzeit von 8 - 17:30 erzeugen
Dim i As Integer
Dim ViertelStund As Double
Dim Uhrzeit As Double
Dim arrUhr(0 To 41, 1 To 1) As Variant
'00:00 wird hier "von Hand" in den ersten Satz geschrieben
arrUhr(0, 1) = Format(0, "hh:mm")
'selbsterklärend
ViertelStund = 15 / (24 * 60)
'StartZeit
Uhrzeit = 8 / 24
'Beginnend ab 08:00, in 15min Schritten bis 18:00
For i = 1 To 39
arrUhr(i, 1) = Format(Uhrzeit, "hh:mm")
Uhrzeit = Uhrzeit + ViertelStund
Next i
'das Ganze noch in die Combobox kopieren
UserForm2.Zeitvon.List = arrUhr
UserForm2.Zeitbis.List = arrUhr
End Sub

Private Sub Daten_übernehmen_Click()
'Variable deklarieren
Dim letzte_Zeile As Long
'Die letzte beschrieben Zeile in Spalte B ermitteln
Sheets("ToDo").Activate
'letzte_Zeile = Range("B65536").End(xlUp).Offset(1, 0).Row
letzte_Zeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox letztezeile
'lfd nr. erhöhen'
Cells(letzte_Zeile + 1, 1) = Cells(letzte_Zeile, 1) + 1
'Eintrag aus TextBox1 (erfasst am) in erste freie Zelle übertragen
Cells(letzte_Zeile, 2) = erfasstam
Cells(letzte_Zeile, 2).NumberFormat = "dd/mm/yyyy"
'Selection.NumberFormat = "dd/mm/yyyy"
'Eintrag aus TextBox2 (erfasst von) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 3) = erfasstvon
'Eintrag aus TextBox3 (Kunde) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 4) = Kunde
'Eintrag aus TextBox3 (Beschreibung) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 5) = Beschreibung
'Eintrag aus TextBox3 (Bereich) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 6) = Bereich
'Eintrag aus TextBox4 (fällig am) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 7) = fälligzum
'Eintrag aus TextBox5 (Priorität) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 8) = Priorität
'Eintrag aus TextBox6 (Zeit von) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 9) = Zeitvon
'Eintrag aus TextBox7 (Zeit bis) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 10) = Zeitbis
'Eintrag aus TextBox8 (Bearbeiter) in erste freie Zelle  übertragen
With Cells(letzte_Zeile, 11).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DropDown!$B$2:$B$5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'Eintrag aus TextBox8 (Status) in erste freie Zelle  übertragen
With Cells(letzte_Zeile, 12).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DropDown!$C$2:$C$7"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'Eintrag aus TextBox8 (Fertig) in erste freie Zelle  übertragen
With Cells(letzte_Zeile, 13).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=DropDown!$D$2:$D$6"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'Eintrag aus TextBox8 (Lösungen) in erste freie Zelle  übertragen
Cells(letzte_Zeile, 14) = Lösung
'Die Sendkey Anweisung ersetzt das händische Betätigen der
'Tabtaste
SendKeys "{TAB}"
'Die Sendkey Anweisung ersetzt das händische Betätigen der
'Tabtaste
SendKeys "{TAB}"
End Sub

Private Sub Eingabe_beenden_Click()
'UserForm schließen
Unload UserForm2
Sheets("Start").Activate
End Sub

Private Sub UserForm2_QueryClose(Cancel As Integer, CloseMode As Integer)

'Fehlermeldung, wenn versucht wird, die UserForm über das rote

'Schließenkreuz oben rechts zu schließen

If CloseMode = 0 Then

Cancel = 1

MsgBox "Bitte verlassen Sie das Dialogfeld mit den Schaltflächen.", _

vbOKOnly + vbInformation, "Bitte Schaltfläche betätigen."

End If

End Sub