Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Tabellenblätter benennen
Problem
Wie kann ich ein neues Tabellenblatt hinzufügen und es mit der nächsten fortlaufenden Nummer benennen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub NewSheet()
Dim sName As String
sName = Format(Right(Worksheets(2).Name, 3) + 1, "000")
sName = Left(Worksheets(2).Name, 3) & sName
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = sName
End Sub