Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Tabellenblätter benennen
Gruppe
Arbeitsblatt
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