Ich habe in 2 Zellen (M1 + N1) zwei Datumswerte und möchte diese als Filterkriterium einsetzen.
Ich bekomme die Fehlermeldung; Typen unverträglich, Gelb:
ActiveSheet.Range("M11:V" & ende_Liga).AutoFilter Field:=1, Criteria1:=">=" & CDbl(Datum1) And "=" & CDbl(Datum2)
im wesentlichen:
Dim Datum1 As Date
Dim Datum2 As Date
Datum1 = ActiveSheet.Range("M1")
Datum2 = ActiveSheet.Range("N1")
ende_Liga = ThisWorkbook.Sheets("Liga").Cells(Rows.Count, 13).End(xlUp).Row
ActiveSheet.Range("M11:V" & ende_Liga).AutoFilter Field:=1, Criteria1:=">=" & CDbl(Datum1) And "=" & CDbl(Datum2)
und diese Version funktioniert auch nicht:
Dim StartDatum As Date
Dim EndDatum As Date
StartDatum = CDate(Datum1)
EndDatum = CDate(Datum2)
ende_Liga = ThisWorkbook.Sheets("Liga").Cells(Rows.Count, 13).End(xlUp).Row
ActiveSheet.Range("M11:V" & ende_Liga).AutoFilter Field:=1, Criteria1:=">=" & StartDatum & " AND =" & EndDatum
Kann mich bitte jemand auf den Fehler hinweisen!
Gruss
Fred