ich müsste alle Zeilen per VBA gelöscht bekommen die als Formelergebnis in der Spalte C das Datum 00.01.1900 haben.
Hat jemanad eine Idee wie dies funktioniert?
Vorab vielen Dank
Gruß
Sascha
Sub zero()
Dim rngHoleInOne As Range, i As Long
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3).Value "" And Cells(i, 3).Value = 0 Then
If rngHoleInOne Is Nothing Then
Set rngHoleInOne = Cells(i, 3).EntireRow
Else
Set HoleInOne = Union(rngHoleInOne, Cells(i, 3).EntireRow)
End If
End If
Next
If Not rngHoleInOne Is Nothing Then rngHoleInOne.Delete
End Sub
gruß