Suche nach Zellen im Datumsformat T.

Private Sub CommandButton1_Click()
Dim dstart As Date
Dim dende As Date
Dim i As Long
Dim GesuchteZelle As Range
Dim bereich As Range
Dim zeile As Long
dstart = TextBox1
dende = TextBox2
TextBox3 = 10
TextBox4 = 20
TextBox5 = 30
For i = dstart To dende
Set bereich = ActiveSheet.Range("C3:C33")
Set GesuchteZelle = bereich.Find(what:=CDate(i), lookat:=xlWhole, LookIn:=xlValues)
zeile = GesuchteZelle.Row
If CDate(i) = GesuchteZelle And TextBox3  0 And GesuchteZelle = dstart Then
ActiveSheet.Cells(zeile, 8) = TextBox3.Value
ElseIf CDate(i) = GesuchteZelle And TextBox4  0 And GesuchteZelle = dende Then
ActiveSheet.Cells(zeile, 8) = TextBox4.Value
Else
ActiveSheet.Cells(zeile, 8) = TextBox5.Value
End If
Next i
Unload Me
End Sub