Benennen Sie ein Blatt mit dem aktuellen Datum auf VBA

Question

Ich habe einen Code, um alle Zellen eines Blattes zu kopieren und fügen Sie es in einem neuen Blättern in Werten mit dem ursprünglichen Format. Ich möchte auch automatisch das neue Blatt mit dem aktuellen Datum benennen, ich habe dies versucht:

Cells.Select 
Selection.Copy 
Sheets.Add After:=ActiveSheet 
Range("A1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Range("A1").Select 
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ 
    SkipBlanks:=False, Transpose:=False 
ActiveSheet.Name = szToday 

Aber die letzte Zeile funktioniert nicht zu erreichen, was ich will.

Konnte mir jemand helfen?

Danke.

Answer 1

Ein Blattname darf nicht leer sein. Da Sie szToday nicht definiert haben, ist es leer.

Ist das, was Sie

Sheets.Add After:=ActiveSheet 
szToday = Format(Date, "DD-MM-YY") 
ActiveSheet.Name = szToday 

Oder einfach

Sheets.Add After:=ActiveSheet 
ActiveSheet.Name = Format(Date, "DD-MM-YY") 

oder einen Einzeiler

Sheets.Add(After:=ActiveSheet).Name = Format(Date, "DD-MM-YY")