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