Mit Excel können Sie verschiedene Arbeitsblätter auf verschiedene Arten erstellen. Was ist, wenn Sie ein neues Arbeitsblatt erstellen und alles in einem Schritt benennen möchten? Der einfachste Weg, dies zu tun, ist mit einem Makro. Das folgende Beispiel zeigt ein Makro, das nach einem Namen fragt, ein Arbeitsblatt erstellt und diesem Arbeitsblatt den angegebenen Namen gibt.

Sub AddNameNewSheet1()

Dim Newname As String     Newname = InputBox("Name for new worksheet?")

If Newname <> "" Then         Sheets.Add Type:=xlWorksheet         ActiveSheet.Name = Newname     End If End Sub

Dieses Makro funktioniert einwandfrei, solange der Benutzer einen Arbeitsblattnamen eingibt, der nach Excel-Standards „legal“ ist. Wenn der neue Name für Excel nicht akzeptabel ist, wird das Arbeitsblatt weiterhin hinzugefügt, aber nicht wie erwartet umbenannt.

Ein robusteres Makro würde mögliche Fehler bei der Benennung eines Arbeitsblatts antizipieren. Der folgende Beispielcode fügt das Arbeitsblatt hinzu, fragt jedoch weiterhin nach einem Arbeitsblattnamen, wenn ein falscher angegeben wird.

Sub AddNameNewSheet2()

Dim CurrentSheetName As String

'Remember where we started     CurrentSheetName = ActiveSheet.Name

'Add New Sheet     Sheets.Add

'Make sure the name is valid     On Error Resume Next

'Get the new name      ActiveSheet.Name = InputBox("Name for new worksheet?")



'Keep asking for name if name is invalid     Do Until Err.Number = 0         Err.Clear         ActiveSheet.Name = InputBox("Try Again!" _           & vbCrLf & "Invalid Name or Name Already Exists" _           & vbCrLf & "Please name the New Sheet")

Loop     On Error GoTo 0

'Go back to where you started     Sheets(CurrentSheetName).Select End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (10846) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Arbeitsblätter mit einem Makro erstellen.