ich möchte gerne Datensätze mit Kennzeichnung "9999" (4. Spalte) und nach einer bestimmten Uhrzeitbedingung löschen (1. Spalte), das Datum spielt dabei keine Rolle. Es sollen alle Datensätze ab 19:00:00 Uhr Abends bis 06:30:00 Uhr morgens gelöscht werden. Die Daten sind in folgendendermaßen formatiert TT.MM.YYYY hh:mm:ss
Bsp Formatierung : 22.08.2012 19:01:00
Ich wollte das eigentlich über ein Do Until- Schleife in Verbindung mit If Then Else Schleife lösen.
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, 0).Value = ActiveCell.Offset(0, 4).Value = "9999" And ActiveCell.Value >= right()? Then
Selection.EntireRow.Delete
i_Lösch = i_Lösch + 1
Loop
Else
ActiveCell.Offset(1, 0).Select
End If
Habt Ihr eine IDEE wie ich da weiterkomme, wollte mit right() nur die Nachkommastellen auslesen oder muss man erst den Zeitstempel in Datum und Uhrzeit zerlegen und dann nauch Uhrzeitkriterien löschen?
Danke im Vorraus
Karsten