Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datum in VBA berechnen

Forumthread: Datum in VBA berechnen

Datum in VBA berechnen
28.11.2002 09:48:19
Christian
wie kann ich in vba ein datum berechnen lassen.

habe folgenden code

danke schonmal

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hat sich erledigt
28.11.2002 09:50:26
Christian
DateAdd("d", c.duedays, Date)
Re: Datum in VBA berechnen
28.11.2002 09:50:34
Holger Levetzow
so, wie du es schon hast:

Sub test()
Dim d As Date
d = Date ' aktuelles datum
d = d + 14
End Sub

Holger

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Datum in VBA berechnen


Schritt-für-Schritt-Anleitung

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:

  1. Öffne den VBA-Editor in Excel (ALT + F11).

  2. Erstelle ein neues Modul (Rechtsklick auf "VBAProject" > Einfügen > Modul).

  3. 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
  4. 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.


Häufige Fehler und Lösungen

  • 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.


Alternative Methoden

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.


Praktische Beispiele

  1. 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
  2. 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

Tipps für Profis

  • Nutze Application.WorksheetFunction in VBA, um auf Excel-Funktionen zuzugreifen, die nicht direkt in VBA verfügbar sind.
  • Experimentiere mit den verschiedenen Datumsformaten, um sicherzustellen, dass deine Ergebnisse in dem gewünschten Format angezeigt werden.
  • Halte deine VBA-Projekte gut dokumentiert, besonders wenn du komplexe Datumsberechnungen vornimmst.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige