Blattname automatisch ändern
16.05.2016 11:31:33
Ahmadi
Ich bin in diesem Gebiet ein Neuling und alles, was ich über Excel weiß, verdanke ich den tollen Beiträgen in diesem Room. Dafür danke ich euch.
Nun zu meiner Frage,
Ich habe eine Tabelle erstellt, bestehend aus 7 Blättern. Das erste Blatt ist ein Monatsplan. Der Monat wird per dropdown ausgewählt und die Tabelle mit den Namen der Mitarbeite ausgefüllt. Blätter zwei bis 7 sind Wochenausschnitte des Monatsplans. Die Daten werden per wverweis auf die Wochenblätter übertragen.
Der Monatsplan ist editierbar. Die Wochenausschnitte sind geschützt und gesperrt. Sie sind nur da, um ausgedruckt zu werden.
Ich möchte, dass die Namen der Blätter automatisch geändert werden. Und zwar so:
KWX, wobei X für die Wochenzahl steht, die in der Zelle I2 jeder Woche ermittelt wird.
Dafür habe ich folgenden VBA aus dem Internet gefunden.
Private Sub Worksheet_change(ByVal Target As Excel.Range)
ActiveSheet.Name = "KW" & Range("I2").Value
ActiveSheet.Range("I2").Calculate
End Sub
Dieses Skript funktioniert dann, wenn ich den Schutz des jeweiligen Blattes aufhebe und in eine Zelle reinklicke. Dann wird der Name des geändert.
Kann man dieses Skript so umändern, dass sich der Name automatisch, ohne meinen Eingriff, ändert? Trotz des Blattschutzes?
Für eine Lösung wäre ich euch dankbar.
LG
Ahmadi