Zelle löschen wenn nicht
Marion
eine Frage zu folgendem Makro.
Sub löschen()
Dim z As Long
With Worksheets("Tabelle3") 'Bitte anpassen
For z = 15 To 1 Step -1
If .Cells(z, 1).Value = "Klaus" Or _
.Cells(z, 1).Value = "Martin" Or _
.Cells(z, 1).Value = "Peter" Then
Else
.Rows(z).Delete
End If
Next z
End With
End Sub
das Makro wird also wesentlich länger und jetzter erscheit der Fehler " Zu viele Zeilenfortsetzungen, was muss ich machen ?
Danke für die Hilfe
Liebe Grüße
Marion