Excel und VBA - Die Excel-FAQ

Über Schaltfläche neues Blatt mit aktuellem Datum einfügen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Über Schaltfläche neues Blatt mit aktuellem Datum einfügen

Problem: Wie kann ich über eine Schaltfläche ein neues Arbeitsblatt mit dem aktuellen Datum als Blattnamen einfügen?

StandardModule: basMain

Sub NeuesBlattErstellen()
   Worksheets.Add after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = Format(Date, "yyddmm")
End Sub