Kleines Problem mit Fehlerwerten
19.10.2012 11:23:46
Maximilian
ich habe eine Funktion, die alle Datensätze mit einem bestimmten Wert löscht (Wenn Datum größer als 26.10.2012 ist):
Sub test()
i = 2
With Sheets("Tabelle1")
Do While i CDate("26.10.2010") Then
.Rows(i).Delete
Else: i = i + 1
End If
Loop
End With
End Sub
Danke für eure Hilfe!
Anzeige