Automatisch aktualisieren VBA Code
01.12.2020 19:00:17
Gaby
nachdem ich heute nach langer Suche genau das gefunden habe, nachdem ich auf der Suche war, bin ich
noch nicht 100%ig glücklich.
Mit diesem Code (siehe unten) sollen die Tabellenblätter nach einer bestimmten Zelle im Blatt benannt werden.
Wenn ich aber nun den Zellennamen ändere, ändert sich der Name des Blattes nicht.
Gibt es hierfür einen Code, den ich ergänzend zu dem unten stehenden hinzufügen kann, um mein Ergebnis zu
optimieren?
Sub Namen_anpassen_alle()
Sheets(1).Select
B = ActiveSheet.Index
For Each w In Worksheets
Sheets(B).Activate
n = [b4].Value
On Error Resume Next
w.Name = n
B = B + 1
Next w
Sheets(1).Select
End Sub
Gaby