[[EID]-Mr.GiZMO]

So, hier habe ich es korriegiert mit Filterung der Samstage und Sonntage:

Sub Dates()
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer
Dim Counter As Integer

' hier definieren
Startzeile = 1
Startspalte = 1
AnzahlTage = 27
Counter = 0

For i = 0 To AnzahlTage
    heute = Date + i
    If DatePart("w", heute) <> vbSaturday And DatePart("w", heute) <> vbSunday Then
        Cells(Startzeile + Counter, Startspalte) = heute
        Counter = Counter + 1
    End If
Next i
End Sub

Grüße!