Office: (Office 2010) Agendablätter mit Makros erzeugen

Hallo zusammen

Ich bin neu hier und staune über das Wissen, welches in diesem Forum vermittelt wird. Trotzdem bin ich nicht auf die Lösung meines Problems gestossen und stelle deshalb hier meine Frage in der Hoffnung, dass jemand helfen kann.

Ich erstelle jährlich eine Agenda mittels Excel, wobei jedes Tabellenblatt einem Tag entspricht. Nun möchte ich dies gerne mit einem Makro vereinfachen.

Im ersten Tabellenblatt formatiere ich das Agendablatt nach allen Wünschen und füge bspw. in Zelle J4 das Datum 01.01.2018 ein. Auch das Tabellenblatt heisst 01.01.2018

Mein Wunsch wäre nun, dass mittels eines Makros dieses Blatt 364x zu kopieren und jeweils das darauffolgende Datum in Zelle J4 einzufügen und gleichzeitig das Tabellenblatt nach demselben Datum wie in J4 zu benennen.

Wochentage und Kalenderwochen löse ich mit Formeln (das habe ich immerhin hinbekommen...)

Es sind mehrere Makros im Internet auffindbar, die einzelne Positionen dieses Problems lösen, aber ich bin zu unfähig, diese so zu kombinieren, dass mein Problem gelöst wird.

Herzlichen Dank für euer Mitdenken und Hilfe im voraus.

 

Hi,

dazu kannst du folgendes Makro verwenden:

Code:

Sub TageErstellen()
    Dim lngZaehler As Long
    Application.ScreenUpdating = False
    With Worksheets("01.01.2018")
        For lngZaehler = 2 To 365
            .Copy after:=Worksheets(Worksheets.Count)
            Worksheets(Worksheets.Count).Range("J4") = _
                Worksheets(Worksheets.Count - 1).Range("J4") + 1
            Worksheets(Worksheets.Count).Name = Worksheets(Worksheets.Count).Range("J4")
        Next lngZaehler
    End With
    Application.ScreenUpdating = True
End Sub

Bis später,
Karin

 

Hallo Karin

WOW, das ging aber flott!! Herzlichen Dank, ist genau das was ich gesucht habe :-) Du hast mir meinen Tag seeehr erleichert.

LG
Franco