Excel Makro Laufzeitfehler

Dieses Thema im Forum "Anwendungssoftware" wurde erstellt von Buzzer, 3. August 2009 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 3. August 2009
    Zuletzt von einem Moderator bearbeitet: 14. April 2017
    Hallo Leute,

    seit langem benutze ich dieses Makro um anhand einer Kundennummer Doppeleinträge zu löschen(Wenn ein Kunde mehrfach vorhanden ist, löscht das Makro alle Doppelten Einträge[incl. der ganzen Zeile] und lässt nur einen Eintrag übrig).

    Code:
    Sub Duplikate_finden_und_loeschen()
     Dim iRow As Integer, iRowL As Integer
     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
    Nun habe ich eben das Makro über eine Tabelle laufen laufen lassen und alles war i.O.

    Bei der zweiten tabelle bringt er mir jetzt folgenden Laufzeitfehler -.-

    Ich habs mehrfach probiert aber ich finde nciht warum es plötzlich nicht mehr geht.

    Edit: Es kommt nur bei dieser einen speziellen Datei vor. Die Kundennummern stehen in Spalte A

    BW für jede hilfe.

    Bild

    Bild


    Edit: Es lag wohl an der masse der Datensätze (34.000 Zeilen) die hat das Makro nicht gepackt. Nach dem ich die Tabelle halbiert hatte ging es. ~closed~
     
  2. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.