Tabellenblatt automatisch umbenennen
19.03.2020 02:46:47
Lücke
Ich habe einen Dienstplan, der sich auf die Kalenderwochen (Kw) bezieht.
Dazu habe ich 57 Tabellenblätter eingerichtet. 52 Blätter für die Kalenderwochen von Beginn des lfd. Jahres an und die Restlichen zeigen die Kw des Folgejahres (1. Kw, 2. Kw, 3. Kw. usw.).
Mein Plan ist, die Tabellenblätter jährlich automatisiert den Namen der entsprechenden Kalenderwoche zuzuweisen (umzubenennen).
Auf Jahre gesehen stellt sich allerdings ein Problem dar:
Das 1. Tabellenblatt ist nicht immer gleich die 1. Kalenderwoche.
Je nach Jahr kann die 1. Kw auch auf das 2. Tabellenblatt rutschen.
Das 1. Tabellenblatt erhält in dem Fall einen gesonderten Wert/Namen. In der Folge werden alle anderen Tabellenblätter die Namen der jeweiligen Kalenderwochen zugeordnet.
Die Zelle ZZ1 eines jeden Tabellenblattes ermittelt hierbei per Formel den Wert/Namen, der letztlich als Tabellenblattname übernommen werden soll.
Diesbezüglich habe ich Grundlegendes im Netz gefunden. Aber leider nichts, was mich der Lösung meines Problems näher brachte.
Hier die oben erwähnte Besonderheit etwas anschaulicher:
1. Tabellenblatt Name = letzte Woche Vorjahr
2. Tabellenblatt Name = 1. Kw
3. Tabellenblatt Name = 2. Kw
4.
Wenn die Blätter nun automatisiert umbenannt werden sollen, dann wird bei dem Versuch das 1. Tabellenblatt umzubenennen ein Fehler angezeigt, da der Name 1. Kw ja bereits für das 2. Tabellenblatt existiert.
Mein gedanklicher Lösungsansatz wäre:
Ein Code, der den neuen Tabellennamen aus einer Zelle (z.B. AAA1) eines jeden Tabellenblattes bezieht, setzt alle Tabellenblätter auf einen numerischen Wert (1 bis 57). Ein doppelter Blattname wird somit verhindert.
Ein zweiter nachfolgender Code, der den jeweiligen Wert/Namen aus einer Formel der Zelle ZZ1 bezieht, benennt die Tabellenblätter sodann in die entsprechende Kalenderwoche um.
Nach hinten heraus erhalten die Kalenderwochen des nachfolgenden Jahres durch die Zelle ZZ1 gesonderte Bezeichnungen, die sich nicht mit den anderen Kalenderwochen beißen.
Im Normalfall ist die Änderung/Aktualisierung der Tabellenblattnamen erst mit dem Jahreswechsel notwendig, so dass eine automatisierte Änderung/Aktualisierung beim Öffnen der Mappe nicht sinnvoll ist. Die Auslösung der Änderung/Aktualisierung soll daher per Button erfolgen.
Meine VBA-Kenntnisse stecken in den Kinderschuhen und meine bisherigen Versuche sowie Recherchen zu diesem scheinbar speziellen Thema sind leider erfolglos geblieben .
Ich wäre Euch daher dankbar wenn Ihr mir helfen könntet mein Anliegen umzusetzen.
Beste Grüße