Sub ttt()
MsgBox Format("01.01.2007", "ddd")
MsgBox DateDiff("d", "01.01.2007", Date)
End Sub
Gruss
Public Sub Informationen()
MsgBox "Der erste Tag im Jahr ist/war ein """ & _
Format(DateSerial(Year(Date), 1, 1), "dddd") & """."
MsgBox "der laufende Tag im Jahr ist " & Date - DateSerial(Year(Date), 1, 0)
End Sub
Gruß Peter
Um den ersten Tag des Jahres per VBA in Excel zu ermitteln und zu sehen, wie viele Tage seit diesem Datum vergangen sind, kannst du folgende Schritte befolgen:
ALT + F11, um den VBA-Editor zu öffnen.Public Sub Informationen()
MsgBox "Der erste Tag im Jahr ist/war ein """ & _
Format(DateSerial(Year(Date), 1, 1), "dddd") & """."
MsgBox "Der aktuelle Tag im Jahr ist " & Date - DateSerial(Year(Date), 1, 0) & " Tage vergangen."
End SubFehler: Falsches Datum
Wenn das Ergebnis nicht korrekt ist (z.B. 12.12.1900), stelle sicher, dass du die Formel korrekt eingegeben hast. Überprüfe die Datumsformate in deinem VBA-Code.
Problem: Makro kann nicht ausgeführt werden
Stelle sicher, dass die Makros in Excel aktiviert sind. Du kannst dies in den Excel-Optionen unter "Trust Center" überprüfen.
Wenn du keinen VBA-Code verwenden möchtest, kannst du den ersten Tag des Jahres auch mit einer einfachen Excel-Formel berechnen:
=DATUM(JAHR(HEUTE());1;1)Diese Formel gibt das Datum des ersten Tags des Jahres zurück. Um zu berechnen, wie viele Tage seit diesem Datum vergangen sind, kannst du diese Formel verwenden:
=HEUTE()-DATUM(JAHR(HEUTE());1;1)Berechnung des ersten Montags im Jahr:
Eine Formel, um den ersten Montag im Jahr zu finden, könnte so aussehen:
=DATUM(JAHR(HEUTE());1;1) + (8-WOCHENTAG(DATUM(JAHR(HEUTE());1;1);2))%7Berechnung des letzten Tages des Jahres:
Um den letzten Tag des Jahres zu ermitteln, kannst du folgende Formel verwenden:
=DATUM(JAHR(HEUTE());12;31)Option Explicit am Anfang deines VBA-Codes, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.DateDiff-Funktion in VBA, um die Anzahl der Tage zwischen zwei Datumswerten zu berechnen. Ein Beispiel:MsgBox DateDiff("d", DateSerial(Year(Date), 1, 1), Date) & " Tage vergangen."1. Wie kann ich den ersten Tag des Jahres in einer anderen Excel-Version finden?
Die bereitgestellten VBA-Methoden sind in allen modernen Excel-Versionen ab 2007 verfügbar. Die Formeln funktionieren ebenfalls in diesen Versionen.
2. Was mache ich, wenn ich den ersten Tag der Woche benötige?
Verwende die Funktion WOCHENTAG, um den ersten Tag der Woche zu ermitteln. Zum Beispiel:
=DATUM(JAHR(HEUTE());MONAT(HEUTE());TAG(HEUTE())-WOCHENTAG(HEUTE();2)+1)Diese Formel gibt den Montag der aktuellen Woche zurück.