Fehlermeldung,- mir unerklärlich
14.04.2021 11:35:27
Fred
Hallo Excelexperten,
ich habe in Spalte "C" Datumswerte und möchte ab einem gewissen Datum die Zeilen löschen. Das "Datum-Kriterium" ist in "A1" angegeben.
Der Code
Sub loeschen1()
Dim datum As Date
Dim LZ As Long
datum = Sheets("Basis").Cells(1, 1)
LZ = Cells(Rows.Count, 1).End(xlUp).Row
For i = LZ To 2 Step -1
If CDate(Cells(i, 3)) > CDate(datum) Then
Rows(i).Delete
End If
Next i
End Sub
Die entsprechenden Zeilen werden auch gelöscht,- allerdings kommt es zur Fehlermeldung;
Laufzeitfehler 13
Typen unverträglich
Mir unerklärlich, da die Formate Datumswerte in Spalte "C" und Kriteriumswert "A1" anscheinend übereinstimmen.
Kann mal bitte jemand draufschauen und mir sagen, was geändert werden muss?
https://www.herber.de/bbs/user/145508.xlsb
Gruss
Fred