Farbige Zeilen ausschneiden
06.04.2006 20:04:03
Stani
Ich habe ein Makro, das soll alle Zeilen die rote Zellen beinhalten löschen.
Sub Makro1()
Dim lZeile As Long, i As Long, j As Long
lZeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
'makro zählt Rückwärts!
For i = lZeile To 1 Step -1
If Cells(i, 1).Interior.ColorIndex = 3 Then
Rows(i).Delete
End If
Next i
For i = lZeile To 1 Step -1
If Cells(i, 2).Interior.ColorIndex = 3 Then
Rows(i).Delete
End If
Next i
For i = lZeile To 1 Step -1
If Cells(i, 3).Interior.ColorIndex = 3 Then
Rows(i).Delete
End If
Next i
For i = lZeile To 1 Step -1
If Cells(i, 4).Interior.ColorIndex = 3 Then
Rows(i).Delete
End If
Next i
End Sub
Ich habe jede Spalte einzeln eingetragen.
Wie kann ich i von 1 bis 4 eintragen, oder einfach alle Spalten?
Danke für Hilfe
Gruß Stani
Anzeige