Bin VBA-Neuling und habe ein Probleme.
Mit meiner Abfrage kann ich nur die Daten in Spalte A1 vergleichen.
Ich müßte jedoch Zeile für Zeile, in diesem Falle den Bereich A1:C1, mit der jeweiligen darunter liegenden Zeile vergleichen.
Sofern die Zeile identich ist, wird diese gezählt und anschließend gelöscht.
Wenn nicht, wird der Zähler ausgegeben und wieder auf Null gesetzt. Loop...
Dim box As Variant
Sub doppelteSätzeentfernen()
Sheets("M200512").Activate
ActiveSheet.UsedRange.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:= _
Range("B1"), Order2:=xlAscending, Key3:=Range("C1"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
'jetzt doppelte Datensätze rausschmeißen + zählen
box = 1
Range("A1:C1").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
box = box + 1
End If
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(0, 3).Select
ActiveCell.Value = box
ActiveCell.Offset(1, -3).Select
box = 1
End If
Loop
End Sub
Hat hier jemand eine Idee?
Danke
Tanja