Kommentar in erste zelle einess Bereiches

Private Sub EintrBtn_Click()
Dim anfD As Date, endD As Date, c As Range, iRow As Integer
If anfD = 0 Then
MsgBox "Fehler, kein Anfangsdatum gewählt", , "Fehler"
End
End If
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
If endD = 0 Then
endD = anfD
End If
Cells(iRow, 1) = anfD
Cells(iRow, 2) = endD
For Each c In Range("C2:N32")
If c >= anfD And c 

Gruß Herbert