mit eurer Hilfe

[krischi]

@ Vinzenz, Steel und Jörg

mit euren Hinweisen und der VBA-Hilfe von Excel bin ich (absolut keine VBA-Kenntnisse) zu diesem Ergebnis gekommen:

Sub Monatsblätter()

Dim datDatum As Date
Cells.Select
Selection.Copy

For datDatum = CDate("01.10.2009") To CDate("31.12.2009")
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Format(datDatum, "dddd, dd.mm.yy")
    ActiveSheet.Paste
Next

End Sub

Das aktuelle Tabellenblatt wird markiert und kopiert, dann ein neues Tabellenblatt erstellt, umbenannt und der Inhalt eingefügt. Dies wird
für jedes Datum von Startdatum bis Endedatum wiederholt.

...und es taucht keine unsinnige *305* auf... freu...

Vielen Dank an euch, wieder was gelernt

Gruß Krischi