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.
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Computer
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
Bestens ! Hätte ich selbst nicht besser machen können 😂, danke