Zelleninhalt prüfen und Zeilen löschen
MG
ich würde gern in der Spalte "A" alle Zellen (z.B bis A6000) auf verschiedene Inhalte prüfen und bei gewissen Inhalten die komplette Zeile löschen.
Bei mir liegt das Problem im Moment an dem Zähler, denke ich.
Eine schnelle Hilfe wäre unglaublich nett und hilfreich für mich!
Hier mein bisher nicht funktionierender Code:
Sub Makro1()
For i = 1 To i = 6000
If Range("A" & i).Text = "" Then
Rows(i).Select
Selection.Delete
ElseIf Range("A" & i).Text = "-------" Then
Rows(i).Select
Selection.Delete
ElseIf Range("A" & i).Text = "KDNR" Then
Rows(i).Select
Selection.Delete
ElseIf Range("A" & i).Text = "Getrieb" Then
Rows(i).Select
Selection.Delete
Else
End If
i = i + 1
Next i
End Sub
Anzeige