Zeile in Abhängigkeit vom Datum löschen
28.02.2014 15:12:58
georg
mein Thema ist sicher banal, aber ich komme nicht weiter und hab in der Recherche auch nichts gefunden, was mir hilft.
Ich möchte in einem Datenblock Zeilen abhängig von Spalte E (wenn "Loss" oder "NoGo") und G (=Datumsspalte raus, wenn kleiner 2014) löschen. Dazu hab ich ff geschrieben:
SFZEILE = 0
Do Until Range("E3").Offset(SFZEILE, 0).Value = ""
If Range("E3").Offset(SFZEILE, 0).Value = "Loss" _
Or Range("E3").Offset(SFZEILE, 0).Value = "NoGo" _
And Range("E3").Offset(SFZEILE, 2).Value < 41640 Then
Range("E3").Offset(SFZEILE, 1).EntireRow.Delete
SFZEILE = SFZEILE - 1
End If
SFZEILE = SFZEILE + 1
Loop
Bei der Angabe des Datums breche ich mir die Finger. Auch ff. Varianten gehen nicht:
And Range("E3").Offset(SFZEILE, 2).Value < 01.01.2014 Then
And Range("E3").Offset(SFZEILE, 2).Value < "01.01.2014" Then
Wie gesagt, echt banal. Aber für mich mal eben ein Showstopper...
Gruß und vielen Dank Georg
Anzeige