Gruppe
Allgemein
Problem
Wie kann ich ein neues Tabellenblatt hinzufügen und es mit der nächsten fortlaufenden Nummer benennen?
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