So vergleichen sie daten in vba (mit beispielen)

Sie können in VBA die folgende grundlegende Syntax verwenden, um zwei Datumsangaben zu vergleichen:

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

In diesem speziellen Beispiel werden die Datumsangaben in den entsprechenden Zellen in den Bereichen A2:A5 und B2:B5 verglichen und das Ergebnis der Datumsvergleiche im Bereich C2:C5 zurückgegeben.

Hinweis : Die CDate- Funktion wandelt den Wert einer bestimmten Zelle in ein Datum um.

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

Beispiel: Datumsangaben in VBA vergleichen

Angenommen, wir haben die folgenden zwei Spalten mit Datumsangaben in Excel:

Angenommen, wir möchten die Daten in jeder übereinstimmenden Zeile vergleichen und die Ergebnisse des Datumsvergleichs in Spalte C anzeigen.

Dazu können wir das folgende Makro erstellen:

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

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

Die Ergebnisse von Datumsvergleichen werden nun in Spalte C angezeigt.

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So sortieren Sie ein Blatt nach mehreren Spalten
VBA: So zählen Sie die Anzahl der Zeilen im Bereich
VBA: So filtern Sie eine Spalte