Dim var_Von As Date
Dim var_Bis As Date
Dim var_Datum As Date
If Filter_von.Text = "" Then 'Wenn kein Anfangsdatum eingegeben dann setze es auf den 01.01.2022
Filter_von.Text = "01.01.2022"
End If
var_Von = Filter_von.Text
If Filter_bis.Text = "" Then 'Wenn kein Enddatum eingegeben dann setze es auf den 01.01.2122
Filter_bis.Text = "01.01.2122"
End If
var_Bis = Filter_bis.Text
Do While Werte.Cells(var_Zeile, 1).Value <> "" 'Solange was in der ersten Spalte ist Zeile für Zeile durchgehen
var_Datum = (Werte.Cells(var_Zeile, 7)) 'Speichere das Datum der aktuellen Zeile in einer Variable
If var_Datum >= var_Von And var_Datum <= var_Bis Then 'Prüfen ob das Datum zum Filter passt
Guten Tag,
ich habe das Problem das die If Funktion wie oben geschrieben nicht funktioniert.
Nehme ich aber die kleiner gleich Abfrage raus funktioniert es.
LG
|