Sub jahr()
ActiveSheet.[at15] = Date
End Sub
schreibt zwar das heutige Datum rein zeigt aber durch Formatierung nur das Jahr an.
Das muss aber nicht mit VBA sein.
schreibe in die Zelle =JAHR(HEUTE())
Gruß Matthias
Sub Jahr()
ActiveSheet.[at15] = Year(Now())
End Sub
Gruß Matthias
Um das aktuelle Jahr mittels VBA in die Zelle AT15 einzufügen, folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
Wähle im Projektfenster das entsprechende Arbeitsblatt aus, in das du das Jahr einfügen möchtest.
Klicke auf „Einfügen“ und wähle „Modul“, um ein neues Modul zu erstellen.
Füge den folgenden VBA-Code ein:
Sub Jahr()
ActiveSheet.[AT15] = Year(Now())
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Um das Jahr automatisch in die Zelle einzufügen, kannst du das Makro ausführen, indem du ALT + F8 drückst, das Makro „Jahr“ auswählst und auf „Ausführen“ klickst.
Problem: Die Zelle zeigt nicht nur das Jahr, sondern das gesamte Datum an.
Lösung: Stelle sicher, dass du die Zelle AT15 im benutzerdefinierten Format „JJJJ“ formatiert hast.
Problem: VBA-Code führt zu einem Fehler.
Lösung: Überprüfe, ob du Option Explicit am Anfang deines Moduls hast, um sicherzustellen, dass alle Variablen deklariert sind.
Falls du kein VBA verwenden möchtest, gibt es auch eine einfache Excel-Formel, um das Jahr auszugeben:
Schreibe die folgende Formel:
=JAHR(HEUTE())Diese Formel gibt das aktuelle Jahr automatisch aus, ohne dass VBA erforderlich ist.
Hier sind zwei Beispiele, wie du das aktuelle Jahr in verschiedene Zellen einfügen kannst:
VBA zur Eingabe in Zelle B1:
Sub JahrInB1()
ActiveSheet.[B1] = Year(Now())
End SubExcel Formel zur Eingabe in Zelle C1:
=JAHR(HEUTE())Wenn du das Jahr automatisch aktualisieren möchtest, ohne das Makro manuell auszuführen, kannst du das Makro beim Öffnen der Arbeitsmappe automatisch ausführen lassen:
Private Sub Workbook_Open()
ActiveSheet.[AT15] = Year(Now())
End SubAchte darauf, dass du die richtige Zellreferenz verwendest, falls du das Jahr in eine andere Zelle einfügen möchtest.
1. Wie kann ich das aktuelle Jahr in eine andere Zelle als AT15 einfügen?
Du musst lediglich die Zellreferenz im VBA-Code oder in der Excel-Formel anpassen. Zum Beispiel, ändere ActiveSheet.[AT15] in ActiveSheet.[B1], wenn du die Zelle B1 verwenden möchtest.
2. Funktioniert dieser VBA-Code in allen Excel-Versionen?
Ja, der VBA-Code zur Ermittlung des aktuellen Jahres funktioniert in allen modernen Excel-Versionen, die VBA unterstützen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen