AW: Zellen löschen
19.05.2005 12:00:40
WernerB.
Hallo Holger,
wie gefällt Dir das?
Ich bin davon ausgegangen, dass die Zeile gelöscht werden soll, wenn einer der beiden (oder alle beide) Suchbegriffe in der Zeile steht/stehen.
Sub Holger()
Dim rng As Range, _
i As Long, laR As Long, Anz1 As Long, Anz2 As Long
Const s1 As String = "OEM", s2 As String = "Eingestellt"
Application.ScreenUpdating = False
On Error Resume Next
laR = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
On Error GoTo 0
If laR > 0 Then
For i = laR To 1 Step -1
Anz1 = 0
Anz2 = 0
Set rng = ThisWorkbook.ActiveSheet.Range("A" & i & ":IV" & i)
Anz1 = Application.Evaluate("=SUM(LEN(" & rng.Address(True, True, _
xlA1, True) & ")-LEN(SUBSTITUTE(" & rng.Address(True, True, _
xlA1, True) & ",""" & s1 & ""","""")))/LEN(""" & s1 & """)")
Anz2 = Application.Evaluate("=SUM(LEN(" & rng.Address(True, True, _
xlA1, True) & ")-LEN(SUBSTITUTE(" & rng.Address(True, True, _
xlA1, True) & ",""" & s2 & ""","""")))/LEN(""" & s2 & """)")
If (Anz1 + Anz2) > 0 Then
Rows(i).Delete
End If
Next i
Set rng = Nothing
End If
Application.ScreenUpdating = True
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !