Guten Tag
Ich habe einen Code gefunden und dieser funktioniert fast Fehlerfrei, nur ein Problem habe ich.
Das in der Spalte M stehende Datum wird nicht richtig erkannt. Der Code wird nur ausgeführt wenn ich den 12.05.2020 eingebe. Der 13.05.2020 oder 14.05.2020 funktioniert nicht.
Kann mir jemand sagen wo der Fehler liegt?
Dim lngLetzte As Long
Dim lngZeile As Long
With Worksheets("Abgelaufen")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
End With
With Worksheets("Erfassen")
For lngZeile = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) To 2 Step -1
If .Cells(lngZeile, 13) <= Date Then
.Range(.Cells(lngZeile, 1), .Cells(lngZeile, 15)).Cut Worksheets("Abgelaufen").Cells(lngLetzte, 1)
lngLetzte = lngLetzte + 1
End If
Next lngZeile
End With
Herzlichen Dank für eure Bemühungen
|