Arbeitsblatt per VBA umbenennen?

Hallo zusammen,

ich benötige wieder einen Denkanstoß.

Ich habe Arbeitsblätter die ich per VBA umbenennen möchte.

Der Name des Tabellenblatt welches umbenannt werden soll steht im aktiven Tabellenblat in Zelle A1 und der neue Name des Tabellenblatt steht in Zelle A2 des aktuellen Tabellenblatt.

Answer 1

[Elumania]

In A1 steht der alte Name des Tabellenblattes. In A2 steht der neue Name des Tabellenblattes. Das Programm geht nun alle Tabellenblätter, die es gibt in der Excel durch. Findet es ein Tabellenblatt, das den "alten Namen" trägt, dann wird das geändert auf den "neuen Namen".

Sub TabellenblattUmbenennen()
alterName = Range("A1")
neuerName = Range("A2")

Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
    If WsTabelle.Name = alterName Then
        Sheets(alterName).Name = neuerName
        Exit For
    End If
Next WsTabelle

End Sub

Comments

[oxmoks]

Bestens ! Hätte ich selbst nicht besser machen können 😂, danke