Gruppe
Funktion
Problem
In Zeile 1 stehen die Monate, in Spalte A die Namen. Die Formel soll aus dem Monatsblatt die Werte zum jeweiligen Namen übernehmen.
StandardModule: Modul1
Sub BlaetterAnlegen()
Dim iCounter As Integer
For iCounter = 1 To 12
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(1, iCounter, 1), "mmmm")
Next iCounter
End Sub