Neues Blatt einfügen
29.07.2015 12:45:01
Bernd
ich möchte per Buttonklick ein neues Blatt einfügen.
Und zwar eine genaue Kopie vom Musterblatt
Der Name des Neuen Blattes soll dann AE_001 sein.
Bei weiteren Blättern soll sich der Name hochaddieren.
AE_002, AE_003 u.s.w.
mit dem Code:
Sub Neues_Blatt_AE()
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = "AE_" & Format(Now, "dd.mm.yyyy")
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
End Sub
Das möchte ich aber nicht mehr.
Kann mir bitte einer bei der Erweiterung des Codes behilflich sein.
Vielen Dank und allen noch einen schönen Tag
Gruß Bernd
Anzeige