Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Ü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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub NeuesBlattErstellen()
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Date, "yyddmm")
End Sub