Ich brauche ein makro bütte
Suche in G7 bis G8000
die Zellen mit der Farbe rot,gelb,grün(bedingt Formatiert) und wenn gefunden dann zeilen löschen.
Danke
Achim H.
Sub Suchbegriffelöschen()
Dim Wert1 As String, Wert2 As String, Wert3 As String
Dim i As Integer
Wert1 = erster Suchbegriff
Wert2 = zweiter Suchbegriff
Wert3 = dritter Suchbegriff
For i = 8000 To 7 Step -1
If Cells(i, 7) = Wert1 or cells(i, 7) =Wert2 or cells(i,7) =Wert3 Then
Rows(i).Delete
End If
Next i
End Sub
Sub farbelöschen()
Dim i
Application.Screenupdating = False
For i = 8000 To 7 Step -1
If Cells(i, 7).Font.Color = vbRed Or Cells(i, 7).Font.Color = vbYellow Or Cells(i, 7).Font.Color = vbGreen Then
Cells(i, 7).EntireRow.Delete
End If
Next
End Sub
Sub loeschen()
For i = 7 To 8000
Sheets("Tabelle1").Columns("G").Rows(i).Select
If ActiveCell.Interior.ColorIndex = 3 Then
Rows(i).Delete
ElseIf ActiveCell.Interior.ColorIndex = 4 Then
Rows(i).Delete
ElseIf ActiveCell.Interior.ColorIndex = 6 Then
Rows(i).Delete
End If
Next i
End Sub