ich habe folgendes Problem:
Ich möchte ein Liste prüfen, ob in den Spalte R und Q eine Differenz auftritt.
Wenn ja, dann soll die Spalte C geprüft werden, ob diese mit der vorherigen übereinstimmt (ist z.b. c100 = c99 und c99=c98 usw.).
Wenn das der Fall ist, dann sollen die betreffenden Zeilen gelöscht werden, wenn nicht, dann sollen die Zeilen erhalten bleibe.
Sobald sich der Wert in Splate c ändeert, soll erneut auf die Summe geprüft werden usw.
Mit folgendem Code passt das nicht so ganz...
Kann mir einer einen Hinweis geben, wie das geschkterweise gelöst werden kann?
Sub Zeilen_loeschen()
Application.ScreenUpdating = False ' Bildschirmausgaben abschalten
Dim Zeile As Long
Dim i As Long
' X setzen , um die Summenzeile zu markieren
Zeile = Range("A65536").End(xlUp).Row
For i = Zeile To 2 Step -1
If Cells(i, 3).Value "" And Cells(i, 4).Value = "" Then
Cells(i, 1) = "X" 'als Hilfsmittel für die Summenzeile
End If
Next i
'löschen der zeilen, deren Differenz Null ist (in Spalte Q und R)
'Zeile = Range("A65536").End(xlUp).Row
For i = Zeile To 2 Step -1
If Cells(i, 2).Value = "X" And Cells(i, 17).Value = Cells(i, 18).Value And Cells(i - 1, 3). _
Value = Cells(i, 3).Value Then
'If Cells(i, 1).Value = "X" Or Cells(i, 2).Value = "B" Then
Rows(i).Delete
End If
If Cells(i, 17).Value = Cells(i, 18).Value Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True ' Bildschirmausgaben einschalten
End
Sub
Gruss
Andreas