Excel Makro umschreiben

Dieses Thema im Forum "Anwendungssoftware" wurde erstellt von Buzzer, 11. April 2011 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 11. April 2011
    Hallo Leute ich habe ein Makro(glaube auch aus RR damals)

    Dieses Makro überprüft in der ersten Spalte ob eine Kundenummer mehr als
    einmal vorkommt.
    Wenn ja löscht es alle Doppeleinträge(es löscht die ganze Zeile), lässt
    somit von den z.B. 5 Einträgen, nur einen übrig.
    Nun möchte ich aber dass das Makro genau die Einträge übrig lässt die doppelt vorkommen.
    Also wenn eine Kunde zweimal in der Liste ist, möchte ich das er diesen in der Liste behält und bei allen anderen die ganze Zeile löscht.
    Könntet ihr mir da helfen, kenn mich da garnicht aus.

    Bw ist selbstverständlich=)

    Code:
    Code:
     Sub Duplikate_finden_und_loeschen()
 Dim iRow As long, iRowL As long 
 iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
 For iRow = iRowL To 1 Step -1
 If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
 Rows(iRow).Delete
 End If
 Next iRow
 End Sub
     
  3. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.