Office: Tabellenblatt-Name: aktuelles Datum im Blattregister anzeigen

Excel 365 läuft unter Windows 11, ich grüße recht herzlich!

Es geht um ein Automatisiesierungsproblem:

Für eine Standardauswertung sollte im Blattregister immer das aktuelle Datum angezeigt werden (ob nur der Monat oder das lange Datum, spielt keine Rolle, aber eben wechselnd).

Einiges an VBA habe ich ausprobiert, aber da kein neues Tabellenblatt erzeugt werden soll, haben die Lösungen nicht funktioniert.

Grüße

 

benutze den Internen Namen zum umbennen
Tabelle1.Name = Date

 

interner Name in VBA Editor schauen, Alt+F11

Gruß Hajo

 

Moin!
Ich verstehe das von mir markierte nicht!
Mal als Nachfrage:
Deine Datei hat 3 Blätter: (Tabelle1 bis Tabelle3)
Was soll nun wo und ab wann angezeigt werden?

Fragt sich Ralf

 

Nun, jetzt habe ich es wohl geschnasselt …
Wechselnd ist hier redundant zu sehen, da "aktuell" per Definition "wechselnd" ist.
Dann siehe Hajo:
• Alt+F11
• Doppelklick auf DieseArbeitsmappe
• Folgenden Code hineinkopieren

Code:

Private Sub Workbook_Open()
Tabelle1.Name = Date
End Sub

Den Monatsnamen in Langform erhältst Du mittels
Tabelle1.Name = Format(Date, "mmmm")
oder auch (Gruß an snb):
Tabelle1.Name = Application.GetCustomListContents(8)(Month(Date))

Gruß Ralf

 

ich bin dann raus, meine Lösung hat nicht gefallen.

Gruß Hajo

 

Servus!
Standard bedeutet, dass die Tabelle immer gleich ausgewertet wird und dazu müsste sich der Name im Tabellenblatt automatisch ändern, z.B. für den 1. Mai "1.5.2026" und morgen eben "2.5.2026".

 

Moin,

aber dann sollten doch die vorgeschlagenen EinZeiler-Lösungen alle passen, oder nicht?

 

Passt für neue Tabellenblätter wunderbar.

 

Und auch für bereits bestehende Tabellenblätter.

 

Auswertungen auf Basis eines Tabellenblattnamens? Wie kommt man denn auf so eine Schnapsidee?

 

Hallo,

für das Open-Ereignis der Arbeitsmappe hat es dir ja RPP63_neu in Posting #5 bereits gezeigt;
für das Activate-Ereignis eines Arbeitsblattes sieht es ebenfalls so aus:

Code:

Private Sub Worksheet_Activate()
' ActiveSheet.Name = Date
'  oder auch so:
  ActiveSheet.Name = Format(Date, "DDD., DD.MM.YYYY")
End Sub

Dieser Code gehört natürlich in das Codemodul des betreffenden Arbeitsblattes (zB. Codename Tabelle1) und wird nur dort ausgeführt nach Eintritt des Activate-Ereignisses.