Aktuelles Jahr in Zelle eintragen (VBA)

[Atom]

Hallo,

ich suche Hilfe bei folgendem Problem.
Beim Öffnen einer Excelmappe soll das aktuelle Systemjahr in Tabelle1 Zelle D1 eingetragen werden.

Private Sub Workbook_Open()
'Jetzt das aktuelle Systemjahr in D1 im Format YYYY eintragen
End Sub

Gruß
Thomas

[Werner.M]

Hallo,

entweder

Code:

Private Sub Workbook_Open()
Worksheet("Tabelle1").Range("D1") = Format(Date, "YYYY")
End Sub

oder

Code:

Private Sub Workbook_Open()
Worksheet("Tabelle1").Range("D1") = Date
End Sub

und die Zelle D1 benutzerdefiniert im Format JJJJ formatieren.

Dein Tabellenblatt mußt du natürlich noch anpassen.

Gruß Werner

[chris-ka]

Moin,

Hier noch eine Alternative

Private Sub Workbook_Open()
Worksheets("Tabelle1").Range("D1") = Year(Date)
End Sub

[Atom]

Hallo Werner und Chris,

eure Lösungen klappen.
Besten Dank und schöne Woche noch.

Gruß
Thomas