Option Explicit
Public Sub datumsreihe()
Dim strInput As String
Dim datStart As Date, datEnde As Date
strInput = InputBox("Bitte Datum von eingeben.")
If Not IsDate(strInput) Then
Exit Sub
Else
datStart = CDate(strInput)
End If
strInput = InputBox("Bitte Datum bis eingeben.")
If Not IsDate(strInput) Then
Exit Sub
Else
datEnde = CDate(strInput)
End If
If datEnde < datStart Then
Exit Sub
End If
Dim i As Integer, j As Integer
i = DateDiff("d", datStart, datEnde, vbUseSystemDayOfWeek, vbUseSystem)
Worksheets("Tabelle1").Cells.Clear
For j = 1 To i + 1
Worksheets("Tabelle1").Cells(j, 1) = DateAdd("d", j - 1, datStart)
Next j
End Sub