Wie können die Tabellenblätter automatisch nach den Namen in Spalte A benannt werden?

Um Tabellenblätter in Excel automatisch nach den Namen in Spalte A zu benennen, kann ein VBA-Makro verwendet werden. Hier ist ein Beispiel, wie das geht:

1. Öffne Excel und drücke `Alt + F11`, um den VBA-Editor zu öffnen.
2. Wähle `Einfügen` > `Modul`, um ein neues Modul zu erstellen.
3. Füge den folgenden Code in das Modul ein:

```vba
Sub BenenneTabellenblaetter()
Dim ws As Worksheet
Dim i As Integer
Dim BlattName As String

' Schleife durch alle Zeilen in Spalte A des aktiven Blattes
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
BlattName = Cells(i, 1).Value

' Überprüfen, ob der Name nicht leer ist
If BlattName <> "" Then
' Überprüfen, ob das Blatt bereits existiert
On Error Resume Next
Set ws = Sheets(BlattName)
On Error GoTo 0

' Wenn das Blatt nicht existiert, erstelle es
If ws Is Nothing Then
Sheets.Add(After:=Sheets(Sheets.Count)).Name = BlattName
End If

' Setze ws zurück für die nächste Iteration
Set ws = Nothing
End If
Next i
End Sub
```

4. Schließe den VBA-Editor und kehre zu Excel zurück.
5. Drücke `Alt + F8`, wähle `BenenneTabellenblaetter` und klicke auf `Ausführen`.

Dieses Makro durchläuft die Namen in Spalte A des aktiven Blattes und erstellt für jeden Namen ein neues Tabellenblatt, sofern es noch nicht existiert.