Excel und VBA - Die Excel-FAQ

Tabellenblätter benennen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Tabellenblätter benennen

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