Office: Übername Tab'blattname aus Zelle

Hallo biendu

mag sein dass wir dich alle falsch verstehen

mein letzter Versuch

ändere in der angehängten Datei in einer der Blätter Tabelle3 bis 5 das Datum
durch Eingabe in Zelle B1
und sag mir dann das Ergebnis

MfG Tom

 

Hallo Biendu,

Nein, Du bist auf meine Fragen erst in Deinem letzten Beitrag eingegangen.

Die Kollegen haben wichtige Vorarbeiten geleistet:
- es ist auf die Änderung in B1 zu reagieren,
- der Code gehört in DieseArbeitsmappe, etwaiger Code zu diesem Thema in den den Tabellen 3,4,5 muß entfernt werden.

Das bedeutet,
- Änderung nur für dieses eine Blatt,
- dieses Tabellenblatt kann Tabelle3,4,5 oder KW x heißen

Darauf baut mein Code-Vorschlag:
Code:

Gruß
Aloys

Gruß
Aloys

 

Moin Aloys

warum das "On Error Resume Next"?
wenn dahinter die Error-Abfrage kommt?
das hatte ich mit Ralfs Code probiert da kommt doch dann keine eigene Fehlermeldung oder übersehe ich da was?

MfG Tom

 

Habe jetzt meinen obigen Code mal in das Testfile3 kopiert. Was funktioniert denn da nun nicht so, wie es soll ? Sobald das Datum in B1 geändert wird, ändert sich der Registername. Außer bei Tabelle 1 und 2.

LG Petra
Testfile3geändert.xlsm

 

Hallo

so wie ich das verstehe, möchte der TS bei Änderung von einem
Blatt, Tabelle3 bis Tabelle5, dass sich dann direkt alle 3 Tabellenblattnamen anpassen,
jeweils nach der Kalenderwoche die im jeweiligen Blatt in Zelle B2 steht
ansonsten hat er mich mit seiner ursprünglichen For-Each-Schleife auf die falsche Fährte geschickt

MfG Tom

 

Jupp, so habe ich es auch verstanden. Und genau das tut das Makro ja auch. Deshalb bin ich etwas verwirrt.
Natürlich ändert sich ab dem zweiten Starten des Makros dann immer nur noch das gerade bearbeitete Blatt, da sich ja auch nur dort B2 geändert hat. Aber es werden immer alle Tabellenblätter durchlaufen. Hatte es bei mir damit getestet, dass ich in B1 überall eine Zahl x (unterschiedlich) reingeschrieben habe und in B2 eine Formel x des jeweiligen Blattes + $y (immer gleicher Bezug). So konnte man sehr schön sehen, dass alle Blätter geändert werden, wenn $y verändert wurde.

 

Hallo Tom,

Dazu hat sich der TE m.E. in seinem bisher letzten Beitrag klar geäußert:

Dann Deine Frage:

Es gibt eben verschiedene Möglichkeiten, Fehler abzufangen. In meinem Fall würde es ja bei Fehler in der Namens-Zuordnung einfach weiter gehen; daher muß ich dann die Err.Number abfragen, die 0 (alles ok) oder 0 (Fehler) sein kann; im letzten Fall gebe ich dann Fehler- Nummer und -Text per MsgBox aus.

Gruß
Aloys

 

Hallo zusammen

Ich konnte die Lösung von Ralf nun doch noch erfolgreich interpretieren und umsetzen - ganz herzlichen Dank dafür!

Anbei das Lösungsfile - ich habe zuerst nicht realisiert, dass die im Code aufgeführten Tabellenblätter ausgeschlossen werden...

Grüsse
Biendu