Makro Excel, umschreiben.

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

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

    Super klappt einwandfrei BW haste =)
     
  5. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.