Zufallsfunktion mal anders

[schauan]

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.

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

[JoergPorsch]

Hallo Andre,

Danke das Makro funktioniert wie gewünscht.

Gruss Joerg