Makro Excel, umschreiben.

Dieses Thema im Forum "Anwendungssoftware" wurde erstellt von Buzzer, 4. März 2009 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 4. März 2009
    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 das es alle löscht.

    Also wenn eine Kunde zweimal in der Liste ist, möchte ich das er alle beide einträge(zusammen mit der ganzen zeile) löscht.

    Könntet ihr mir da helfen, kenn mich da garnicht aus.

    Bw ist selbstverständlich=)

    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
    
     
  2. 4. März 2009
    AW: Makro Excel, umschreiben.

    Code:
    Sub Duplikate_finden_und_loeschen()
     Dim iRow As Integer, iRowL As Integer, Count2 As Integer, i As Integer
     Dim Count() As Integer
     iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
     ReDim Count(iRowL)
     Count2 = 0
     
     For iRow = iRowL To 1 Step -1
     If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
     Count(Count2) = iRow
     Count2 = Count2 + 1
     End If
     Next iRow
     
     For i = 1 To Count2
     Rows(Count(i - 1)).Delete
     Next
     
    End Sub
    
    schau ma ob es so passt, die bezeichnungen sind wie meistens bei mir sinnlos, aber ich denk es funktioniert.
    geht bestimmt auch viel einfacher, aber mir fällt nix anders auf die schnelle ein
     
  3. 5. März 2009
    AW: Makro Excel, umschreiben.

    Super klappt einwandfrei BW haste =)
     
  4. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.