27.05.2016, 05:26
Hallöchen,
hier ein Makro zum Kopieren und umbenennen. Das ist erst mal die "kurze" Variante. Im Makro wird das aktive Blatt kopiert und erhält als Name die Zahl vom "internen" Name des Blattes -1. Das geht aber nur, solange Du kein anderes Blatt bzw. Blatt mit anderem Namen zwischendurch einfügst. Für den Fall müsste man die Blattnamen erfassen und danach die nächsthöhere Zahl nehmen.
hier ein Makro zum Kopieren und umbenennen. Das ist erst mal die "kurze" Variante. Im Makro wird das aktive Blatt kopiert und erhält als Name die Zahl vom "internen" Name des Blattes -1. Das geht aber nur, solange Du kein anderes Blatt bzw. Blatt mit anderem Namen zwischendurch einfügst. Für den Fall müsste man die Blattnamen erfassen und danach die nächsthöhere Zahl nehmen.
Code:
Sub Makro1()
'Blatt kopieren und am Ende einfuegen
ActiveSheet.Copy After:=Sheets(Sheets.Count)
'Blatt mit der Zahl des internen Blattnamens -1 umbenennen
ActiveSheet.Name = StrReverse(Val(StrReverse(ActiveSheet.CodeName))) - 1
End Sub