Grober Fehler im Code - der hier passt
11.01.2019 06:02:24
Werner
Hallo,
so, jetzt aber:
Public Sub Doppelte_raus()
Dim loZeile As Long, loSpalte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loZeile = .Cells(.Rows.Count, 3).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1).Column
.Range(.Cells(2, loSpalte), .Cells(loZeile, loSpalte)).FormulaLocal = _
"=WENN(ZÄHLENWENNS(C:C;C2;C:C;""xxx"")>1;0;ZEILE())"
.Range(.Cells(2, loSpalte), .Cells(loZeile, loSpalte)).Value = _
.Range(.Cells(2, loSpalte), .Cells(loZeile, loSpalte)).Value
.Cells(1, loSpalte) = 0
.Range(.Cells(1, 1), .Cells(loZeile, loSpalte)).RemoveDuplicates _
Columns:=Array(3, loSpalte), Header:=xlNo
.Columns(loSpalte).ClearContents
End With
End Sub
Gruß Werner