hilfe bei zeile löschen wenn c<3
29.10.2004 22:20:17
robag
Sub kleiner_3_entfernen()
'Wenn in Spalte C ein Wert kleiner 3 steht, wird diese Zeile gelöscht
Dim letzteZeile As Long
If ActiveSheet.Range("A65335") <> "" Then
letzteZeile = 65335
Else
letzteZeile = ActiveSheet.Range("A65335").End(xlUp).Row + 1
End If
Do
letzteZeile = letzteZeile - 1
If Cells(letzteZeile, 3) < 3 Then
Cells(letzteZeile, 3).EntireRow.Delete
End If
Loop Until letzteZeile = 1
End Sub
Wie kann ich den Bereich so eingrenzen, dass der Bereich erst in der Zeile 4 beginnt?
Wenn ich schreibe
If ActiveSheet.Range("A65335") "" Then
kommt der Fehler Laufzeitfehler 13 Typen unverträglich