.....den Zellinhalt Rufnummer haben. Gibt es für so etwas einen Makro.
Vielen Dank für Eure Hilfe.
Beste Grüße von
Lena
Sub Lena()
Dim rng As Range, _
i As Long, laR As Long, Anz As Long
Const s As String = "Rufnummer"
Application.ScreenUpdating = False
On Error Resume Next
laR = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
On Error GoTo 0
If laR = 0 Then Exit Sub
For i = laR To 1 Step -1
Set rng = Range("A" & i & ":IV" & i)
Anz = Application.Evaluate("=SUM(LEN(" & rng.Address(True, True, _
xlA1, True) & ")-LEN(SUBSTITUTE(" & rng.Address(True, True, _
xlA1, True) & ",""" & s & ""","""")))/LEN(""" & s & """)")
If Anz > 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub