ich habe folgenden Code.
Sub lief()
Dim wks As Worksheet
Dim lngLetzte As Long, lngI As Long, lngA As Long
Application.ScreenUpdating = False
Set wks = ThisWorkbook.Worksheets("Sheet1")
With wks
lngLetzte = .Range("A1048576").End(xlUp).Row
For lngI = lngLetzte To 2 Step -1
lngA = lngI - 1
'MsgBox lngI, , "Meldung"
'MsgBox lngA, , "Meldung"
If Worksheets("Sheet1").Range("F" & lngI).Value = Worksheets("Sheet1").Range("F" & _
_
lngA).Value And Worksheets("Sheet1").Range("G" & lngI).Value = Worksheets("Sheet1").Range("G" & _
lngA).Value And Worksheets("Sheet1").Range("C" & lngI).Value = Worksheets("Sheet1").Range("C" & lngA).Value Then
Worksheets("Sheet1").Rows(lngI).Delete
MsgBox Text1 & vbLf & Text2, , "Meldung"
MsgBox Text1 & vbLf & Text2, , "Meldung"
Else
lngLetzte = lngLetzte - 1
End If
Next lngI
End With
Set wks = Nothing
Application.ScreenUpdating = True
End Sub
Mein Ziel ist es, dass wenn alle 3 Zellen mit den Zellen obendrüber übereinstimmen eine davon gelöscht wird.
Das Zählen funktioniert, nur das Löschen irgendwie nicht. Hat jemand Tipps?
Vielen Dank und einen schönen Tag