AW: Zelle mit bestimmten Inhalt suchen, dann löschen?
08.01.2014 14:41:36
Rudi
Hallo,
in den anderen Code integriert:
Sub Selma()
Dim rngC As Range, rngDel As Range
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
Select Case True
Case rngC.Font.Size = 7.5, _
rngC.Font.Color = RGB(0, 255, 0), _
rngC.Interior.Color = RGB(255, 255, 0), _
rngC Like "Hausverwaltung*", _
rngC Like "Steuerberatung*", _
rngC Like "Buchhaltung*"
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
Case rngC = "weitere Einträge"
If rngDel Is Nothing Then
Set rngDel = Range(rngC, Cells(Rows.Count, 1).End(xlUp))
Else
Set rngDel = Union(rngDel, Range(rngC, Cells(Rows.Count, 1).End(xlUp)))
End If
Exit For
End Select
Next
If Not rngDel Is Nothing Then
rngDel.EntireRow.Delete
End If
End Sub
Gruß
Rudi