Vba: so verwenden sie isdate, um zu überprüfen, ob es sich bei der zelle um ein datum handelt

Sie können die IsDate- Funktion in VBA verwenden, um zu überprüfen, ob eine bestimmte Zelle ein Datum ist.

Diese Funktion gibt True zurück, wenn der Wert in einer bestimmten Zelle als Datum erkannt wird.

Andernfalls gibt die Funktion False zurück.

Hier ist eine gängige Methode, diese Funktion in der Praxis zu verwenden:

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

Dieses spezielle Makro prüft, ob jede Zelle im Bereich A1:A9 ein Datum ist.

Wenn eine Zelle ein Datum ist, wird „Ist ein Datum“ in der entsprechenden Zelle im Bereich B1:B9 zurückgegeben.

Wenn eine Zelle kein Datum ist, wird stattdessen „Ist kein Datum“ zurückgegeben.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Verwendung von IsDate in VBA

Angenommen, wir haben die folgende Wertespalte in Excel:

Angenommen, wir möchten prüfen, ob jede Zelle in Spalte A ein Datum ist.

Dazu können wir das folgende Makro erstellen:

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte B sagt uns, ob jede übereinstimmende Zelle in Spalte A als Datum erkannt wird oder nicht.

Beachten Sie, dass wir wählen, „Ist ein Datum“ oder „Ist kein Datum“ zurückzugeben, Sie können jedoch mit der If Else- Anweisung alles zurückgeben, was Sie möchten.

Hinweis : Die vollständige Dokumentation für die VBA-Funktion „IsDate“ finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So erhalten Sie den Monatsnamen vom Datum
VBA: So verwenden Sie die DateValue-Funktion
VBA: Zahl größer als Datum