In dem Makro lasse ich die Tabelle in der Spalte 7 und 8 nach gleichen Zahlen in der gleichen Zeile suchen, wenn ja dann wird die ganze Zeile gelöscht.
Nun möchte ich aber wenn in Spalte 7 und 8 eine 0 steht das die Zeilen nicht gelöscht werden.
Wie muss Das Makro angepasst werden?
Dim i As Long, j As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 7).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 7).Value "" And IsNumeric(Cells(i, 7).Value) Then
If Cells(i, 7).Value = Cells(i, 8).Value Then
Cells(i, 1).EntireRow.Delete
End If
End If
Next i
Gruß Werner