Tabellenblatt mit Datum aus Zelle benennen

Question

Hallo

Ich würde gerne als Namen der Tabellenblätter ein Datum aus einer Zelle einfügen, ist das überhaupt möglich?

D.h., wenn ich in einer bestimmten Zelle das Datum (Jahr) ändere, möchte ich die Tabellenblattnamen im Format: "Monat (Name ausgeschrieben) Jahr(zweistellig)" automatisch aktualisieren lassen.

Bsp.: Ich trage in B1 eines Tabellenblattes (fixer Name) das Jahr 2023 ein, die weiteren Tabellenblätter sollen dann die Namen Jänner 23, Februar 23 etc. automatisch übernehmen.

LG

Friedrich

Answer 1

Hallo Friedrich,

sorry, habe den Jahressprung übersehen.

Probiere es so:

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address(0, 0) <> "B1" Or Target.Count > 1 Then Exit Sub 

Dim i As Integer 

For i = 2 To 5 

      Sheets(i).Name = Format(DateSerial(Target, i + 7, 1), "MMMM YY") 

Next 

For i = 6 To 13 

      Sheets(i).Name = Format(DateSerial(Target + 1, i - 5, 1), "MMMM YY") 

Next 

End Sub

Claus

Answer 2

Hallo Friedrich,

füge nachfolgenden Code in das Codemodul des gewünschten Blattes ein:

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address(0, 0) <> "B1" Or Target.Count > 1 Then Exit Sub 

Dim i As Integer 

For i = 2 To 13 

      Sheets(i).Name = Format(DateSerial(Target, i - 1, 1), "MMMM YY") 

Next 

End Sub

Claus

Answer 3

Danke Claus

Grundsätzlich funktioniert es, es sind bitte nur kleine Anpassungen notwendig:

• Die Zelle B1, auf die ich mich bezogen habe, liegt auf einem anderen Tabellenblatt (eines vorher, Name "Jahr"). Ich habe versucht, im Code statt "B1" den Ausdruck "Jahr!B1" und "=Jahr!B1" einzugeben, so wie ich es mit weiteren Datumsberechnungen innerhalb der Tabellen auch mache, das funktioniert leider nicht so einfach.
• Wie ändere ich den Code, wenn es nicht mit Jänner, sondern mit September losgehen soll und dann ein Jahressprung auch drinnen ist (Schuljahr)?

Kannst du mir bitte dabei auch weiterhelfen?

LG

Friedrich

Answer 4

Hallo Friedrich,

das Blatt "Jahr" ist das erste Blatt. In das Codemodul des Blattes gehört der folgende Code:

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address(0, 0) <> "B1" Or Target.Count > 1 Then Exit Sub 

Dim arrMonat As Variant 

Dim i As Integer 

arrMonat = Array(9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8) 

For i = 2 To 13 

      Sheets(i).Name = Format(DateSerial(Target, arrMonat(i - 2), 1), "MMMM YY") 

Next 

End Sub

Claus

Answer 5

Danke, das war's.