An: YAL -- klappt leider nicht
03.12.2020 14:59:07
Gaby
erst einmal wollte ich mich bedanken, für Deinen Code und auch die explizite Erläuterung dazu, aber wenn ich die Schritte so befolge, wie beschrieben, dann passiert leider nichts.
Aber vielleicht liegt es auch an mir, bin ja, was das betrifft, absoluter Laie, kann keine Codes selbst erstellen, leider nur abgucken und kopieren/einfügen, und hoffen, dass es klappt.
Viele Wege haben sich dadurch für mich schon vereinfacht.
Um einmal zu erläutern, worum es mir geht:
Ich habe eine Art Kalendervorlage die auf 6 Wochen ausgerichtet ist, also mindestens 42 Arbeitsblätter enthält, diese muss ich dann alle 6 Wochen kopieren und die Daten neu eingeben. Innerhalb der Tabellen habe ich die Tagesdaten mit Formeln so dargestellt, dass diese sich automatisch aktualisieren, anhand einer Formel. Das jeweilige Blatt hat dann auch den Namen des Tagesdatums, aber ich bekomme es nicht so hin, dass sich das Datum auf dem Arbeitsblatt mit dem Datum einer bestimmten Zelle automatisch aktualisiert.
Den Code den ich im Internet gefunden habe, der mir geholfen hat, den muss ich bei einer Änderung mit "F5" immer bestätigen, aber das würde ich mir auch gerne ersparen...
GLG
Gaby
Hallo Gabi,
wenn ich richtig vertehe: Du möchtest, dass wenn der Inhalt von B4 sich ändert, dass das Blatt-Name sich anpasst.
Dein Code ist für das einmalig richten korrekt, aber umständlich. Hajo hat es passend gekürzt.
(@Hajo: da es W gibt, hätte ich auf With verzichtet. Aber Geschmacksache).
Jetzt Ereignisgesteuert:
in der Code-Seite von "Diese Arbeitsmappe" (Doppelklick auf "Diese Arbeitsmappe") folgende Code _ copy-pasten:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$4" Then Sh.Name = Target.Value
End Sub
Dieses Code sagt: wenn irgendwas in einer Zelle "Target" auf einem Blatt "Sh" sich ändert (=Ereignis)
wird geprüft, ob es sich um die Zelle mit Adresse B4 handelt. Wenn ja, der Name von Sh soll den Wert von B4 (in den Fall Target) annehmen.
Viel Erfolg
Yal