Thema: Datumsformat in Makro festlegen | Herbers Excel-Forum

Hallo zusammen,
ich habe für einen Toggle-Button ein Makro hinterlegt, dass Spalten Ein- und Ausblendet. Ich möchte, dass als Caption auf diesem Button ein Jahr im Format JJJJ angezeigt wird. Dieses Jahr soll sich auf Basis einer Datumseingabe, welche im Format TTMMJJJJ getätigt wird, berechnen. Bislang habe ich für das Caption folgenden Code:
TB.Caption = Tabelle1.Range("AI61") 'für aktuelles Jahr; Anzeige aber im Format TTMMJJJJ
TB.Caption = (Tabelle1.Range("AI61") +365) 'für folgendes Jahr; Problem hier, der Debugger meldet einen Fehler.
Wie kann ich erreichen, dass ich das Jahr im Format JJJJ auf dem Button angezeigt bekomme?
Vielen Dank vorab und schöne Grüße
Sebastian

Sub test()
CommandButton1.Caption = Format(ActiveSheet.Cells(1, 1).Value, "YYYY")
End Sub

Vielen Dank schonmal dafür. Aber Wie muss der Code sein, damit er die Jahre weiterrechnet?
D.h. 2009, 2010, etc. Da muss ich doch noch eine Formel einbauen, oder?
Viele Grüße
Sebastian

Das bezieht sich dann natürlich auf einen weiteren Button mit neuem Makro.

soll das akuelle Jahr immer angezeigt werden?

Hallo Sebastian,
=Year(ActiveSheet.Cells(1, 1).Value) + 1
Gruß
Reinhard

Ok, klappt. Vielen Dank an euch beide.