Option Explicit
Public Sub datumsreihe()
Dim wks As Worksheet
Dim strInput As String
Dim datStart As Date, datEnde As Date
Set wks = Worksheets("Tabelle1")
strInput = wks.Range("H2")
If Not IsDate(strInput) Then
Exit Sub
Else
datStart = CDate(strInput)
End If
strInput = wks.Range("H3")
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)
wks.Columns(7).Clear
For j = 0 To i
wks.Cells(j + 7, 7) = DateAdd("d", j, datStart)
Next j
End Sub