Tabellenblatt automatisch bennen?

... komplette Frage anzeigen

1 Antwort

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets(ActiveSheet.Index + 1).Name = Range("A1").Value
End Sub

Das muss aber zu jedem Tabellenblatt hinterlegt werden, auf dem diese Änderung abgefragt werden soll.

Den wirklichen Mehrwert kann ich nicht einschätzen ggü. einer einfachen manuellen Änderung des Tabellenblattnamens.

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Danjel4u
16.09.2016, 10:20

Genau so wollte ich es. Super klappt bestens. Danke

0

Was möchtest Du wissen?