Im unteren Code lösche ich Zeilen wo der Wert "LASK und "Linzer ASK" nicht vorkommt.
Nur funktioniert der Code nur für Spalte D , ich möchte aber auch das der der Code auf Spalte C angewendet wird.
Also nur löschen wenn in Spalte C+D die Werte nicht vorkommen.
Danke für eure Hilfe, Heinz
Sub Zeilelöschen()
Dim zeile As Long
Dim zeilemax As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
zeilemax = .Cells(Rows.Count, 1).End(xlUp).Row
For zeile = zeilemax To 3 Step -1
If .Cells(zeile, 3).Value Like "LASK*" Or _
.Cells(zeile, 3).Value Like "Linzer ASK*" Then
End If
If .Cells(zeile, 4).Value Like "LASK*" Or _
.Cells(zeile, 4).Value Like "Linzer ASK*" Then
Else
.Rows(zeile).Delete
End If
Next zeile
End With
Application.ScreenUpdating = True
End Sub