habe folgenden code
danke schonmal
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 Sub
Schließ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 d
DateSerial: Erzeugt ein Datum aus Jahr, Monat und Tag.
Dim d As Date
d = DateSerial(2023, 10, 15) ' 15. Oktober 2023
Diese 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 Sub
Datumsrechner 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 Sub
Application.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