alle Tabellenblätter (um-)benennen
01.12.2020 13:08:39
Gaby
ich habe eine Arbeitsmappe mit ca. 45 Tabellenblättern, welche manuell als Datum umbenannt werden
Beispielsweise: Blatt 1 (Zusammenfassung), Blatt 2 (01.01.20), Blatt 3 (02.01.2020), ...
Dies führt sich ca. 6 Wochen fort bis zum 15.02.
Da ich für die darauffolgenden 6 Wochen eine weitere Arbeitsmappe anlegen muss, hab ich mir bisher die Mühe gemacht, die Bezeichnung manuell zu machen Blatt 2 (01.02.20), .. bis 15.03.20
Nun habe ich ein wenig gegoogelt und versucht eine Lösung zu finden, dass sich der Tabellenname automatisch aus einem Zellbezug ergibt, habe auch etwas gefunden, aber spätestens in der Folgeperiode klappt das nicht mehr.
Diese Lösung hab ich im Netz über Microsoft gefunden.
Sub RenameSheet()
Dim rs As Worksheet
For Each rs In Sheets
rs.Name = rs.Range("B5")
Next rs
End Sub
Bekomme dann einen Laufzeitfehler, glaub 1004.
Gibt es eine "einfache" Codierung bei der es ausreicht, wenn ich die Arbeitsmappe kopiere und das erste neue Datum setze, die folgenden ergeben sich mittels Formel, dass sich dann auch die Blattbezeichnungen aktualisieren?
Ich habe groß keine VBA Kenntnisse, wäre super, wenn möglich, dass mir jemand den Code zur Verfügung stellt und ich den quasi nur noch mit F5 bestätigen muss :).
Danke und lieben Gruß aus Köln,
Gaby