Hallo an alle und ein frohes neues Jahr.

Ich brauche noch einmal eure Hilfe:

Ich erstelle gerade einen Projektplan und möchte dafür einen Kalender über ein Anfangs- und Enddatum generieren. Dies funktioniert soweit auch schon. Mein Anfangsdatum steht in der Zelle B7 und mein Enddatum in der Zelle B11. Der Code dazu lautet folgendermaßen:

Sub Kalender_erstellen()
With Range("G16")
Range(.Cells, .End(xlToRight)).ClearContents
.Value = Range("B7").Value
.DataSeries Rowcol:=xlRows, Type:=xlChronological, Date:=xlDay, Step:=1, Stop:=Range("B11").Value, Trend:=False
.Orientation = -90
Columns("G:NG").ColumnWidth = 3
.RowHeight = 50

End With
End Sub

Nun möchte ich zu jedem Datum entsprechend den Wochentag mit den Anfangsbuchstaben ausgeben lassen. Dies soll in der Zeile darunter passieren also ab Zelle G17. Ich habe einige Sachen probiert aber ich bekomme es nicht hin. Und vlt gibt es ja für die entsprechende Kalenderwoche ab der Zelle G15 auch gleich eine Lösung.

Danke schonmal im Voraus und noch einen schönen Tag