habe folgenden code
danke schonmal
Sub test()
Dim d As Date
d = Date ' aktuelles datum
d = d + 14
End Sub
Holger
Um ein Datum in VBA zu berechnen, kannst du die Funktion DateAdd verwenden. Diese Funktion ermöglicht es dir, eine bestimmte Anzahl von Tagen, Monaten oder Jahren zu einem Datum hinzuzufügen oder davon abzuziehen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne den VBA-Editor in Excel (ALT + F11).
Erstelle ein neues Modul (Rechtsklick auf "VBAProject" > Einfügen > Modul).
Füge den folgenden Code in das Modul ein:
Sub DatumBerechnen()
Dim d As Date
d = Date ' aktuelles Datum
d = DateAdd("d", 14, d) ' 14 Tage zum aktuellen Datum hinzufügen
MsgBox "Das errechnete Datum ist: " & d
End SubSchließe den VBA-Editor und führe das Makro aus (F5 drücken).
Das Beispiel zeigt, wie du das aktuelle Datum berechnen und 14 Tage hinzufügen kannst.
Fehler: "Typenkonflikt"
Lösung: Stelle sicher, dass die Variable d als Date deklariert ist. Überprüfe auch, dass du DateAdd mit den richtigen Parametern aufrufst.
Fehler: Das Datum wird nicht korrekt angezeigt.
Lösung: Achte darauf, dass die Formatierung des Datums in der MsgBox korrekt ist. Du kannst das Datum auch mit Format(d, "dd.mm.yyyy") formatieren.
Neben DateAdd gibt es auch andere VBA-Datumsfunktionen, die du verwenden kannst:
DateDiff: Berechnet die Differenz zwischen zwei Daten.
Dim diff As Long
diff = DateDiff("d", Date, d) ' Anzahl der Tage zwischen dem aktuellen Datum und dDateSerial: Erzeugt ein Datum aus Jahr, Monat und Tag.
Dim d As Date
d = DateSerial(2023, 10, 15) ' 15. Oktober 2023Diese Funktionen erweitern deine Möglichkeiten beim Arbeiten mit Datumswerten in Excel VBA.
Datum zurückrechnen:
Sub DatumZurueckrechnen()
Dim d As Date
d = Date ' aktuelles Datum
d = DateAdd("d", -7, d) ' 7 Tage zurückrechnen
MsgBox "Das Datum vor 7 Tagen war: " & d
End SubDatumsrechner für zukünftige Termine:
Sub ZukuenftigesDatum()
Dim d As Date
Dim tage As Long
tage = InputBox("Gib die Anzahl der Tage ein:")
d = DateAdd("d", tage, Date) ' Berechnung des zukünftigen Datums
MsgBox "Das zukünftige Datum ist: " & d
End SubApplication.WorksheetFunction in VBA, um auf Excel-Funktionen zuzugreifen, die nicht direkt in VBA verfügbar sind.1. Wie kann ich das aktuelle Datum in VBA abrufen?
Du kannst das aktuelle Datum einfach mit der Funktion Date abrufen.
2. Was ist der Unterschied zwischen DateAdd und DateDiff?
DateAdd wird verwendet, um ein Datum zu verändern, indem du Tage, Monate oder Jahre hinzufügst oder abziehst, während DateDiff die Differenz zwischen zwei Daten berechnet.
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