Inhalt einer Variablen per VBA auf Datum überprüfen

23. März 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Wenn Sie sicherstellen möchten, dass in einer Variablen ein Datum enthalten sind, sollten Sie das genau prüfen, damit sich keine Rechenfehler ergeben

Den 31. Februar gibt es niemals

Den 31. Februar gibt es niemals

Wenn Sie in Ihrem Makros Datumswerte verarbeiten, müssen Sie sicherstellen, dass auch Eingaben im korrekten Format erfolgen. Ob es sich bei einem Variableninhalt um ein gültiges Datum handelt, können Sie über die Funktion ISDATE prüfen. Das folgende Makro zeigt, wie Sie diese Aufgabe erledigen:

Sub PruefeDatum()
On Error Resume Next
Dim Eingabe As String
Eingabe = InputBox("Bitte geben Sie ein Datum ein")
If IsDate(Eingabe) Then
 MsgBox "Es handelt sich um ein gültiges Datum: " & Eingabe
Else
 MsgBox "Das ist kein gültiges Datum: " & Eingabe, vbCritical
End If
On Error GoTo 0
End Sub

Das Makro zeigt im ersten Schritt ein Eingabefenster an, mit dem Sie aufgefordert werden, einen Datumswert einzugeben:

Ein Eingabefenster fragt einen Datumswert ab

Nach der Eingabe des Datumswertes prüft das Makro über die Funktion ISDATE, ob es sich bei der Eingabe um einen gültigen Datumswert handelt. Wenn das nicht der Fall ist, wird ein Hinweisfenster angezeigt:

Den 31. Februar gibt es niemals

Ist die Prüfung der Eingabe hingegen positiv verlaufen, wird ein Hinweisfenster dargestellt, das diese Tatsache bestätigt:

Der Anwender hat einen gültigen Datumswert eingegeben

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro direkt aus Excel zu starten, setzen Sie die Tastenkombination ALT F8 ein.

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"