Hallo zusammen,
ich habe folgendes Problem.
Ich will meinen Datensatz so um einige Zellen bereinigen, die mehrere Kriterien erfüllen:
1. Keinen Inhalt in zwei Spalten (N und P)
2. Datum früher als 01.01.2012 (Datum in Spalte J)
Hier mein Auszug:
Sub Zeilenlöschung()
vonZeile = 6 ' die erste Zeile
bisZeile = Cells(vonZeile, 1).End(xlDown).Row ' letzte Zeile
threshold= "#1/1/2013#"
For Zeile = bisZeile To vonZeile Step -1
If IsEmpty(Cells(Zeile, 14)) = True And IsEmpty(Cells(Zeile, 16)) = True And Cells(Zeile, 9).Value < threshold Then
Rows(Zeile).Delete Shift:=xlUp
End If
Next Zeile
MsgBox "Bereinigung durchgeführt!"
End Sub
Leider funktioniert die Löschung nicht richtig, ich glaube es liegt am Datum, hatte zuvor nur mit der 1. Bedingung einen Probelauf gemacht und da hat es komplett funktioniert. Als Hinweis, die Datumsspalte ist so formatiert: DD/MM/YYYY.
Vielen Dank für die Hilfe!
Max
|