Makro, Datum für Arbtisblatt Fortlaufend
02.01.2018 16:31:05
Christian
Ziel:
Arbeitsblätter von Montag-Samstag das ganze Jahr, der Inhalt von Arbeitsblatt 1(Name Di, 02.01.2018) soll zusammen mit den Formeln/Inhalt kopiert werden.
Mit unten stehender Formel habe ich das soweit geschafft, leider nur bis Ende Jänner? und der Inhalt wird nicht Mitkopiert - Die Formel wurde hier im Forum gefunden, ich hoffe das ist kein Diebstahl :-)
Sub CreateWks()
Dim iCounter As Integer, iDays As Integer
Application.ScreenUpdating = False
iDays = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
For iCounter = 1 To iDays
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format( _
DateSerial(Year(Date), Month(Date), iCounter), _
Format:="ddd dd.mm.yy")
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
Sorry für meine Unwissenheit, aber leider gestaltet das sich als nicht so leicht für mich ;)