Makro abändern

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Buzzer, 12. März 2007 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 12. März 2007
    Hi ich habe folgendes Makro und möchte mit dem in einer excel tabelle sortierungen und doppellöschungen vornehmen(z.B. Kundennummer)

    Das makro funktioniert einwandfrei.

    Jedoch fragt er bei jeder Zeile die er löschen will ab (doppeleintrag in zeile so und so gefunden) wenn ich auf ok klick löscht er die.

    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
    Select Case MsgBox("Ein Duplicat befindet sich in Zeile" & iRow, 35, "Sicherheitsabfrage")
    Case 6
    Rows(iRow).Delete
    Case 2
    Exit Sub
    End Select
    End If
    Next iRow
    End Sub
    
    Ich versteh nicht allzuviel. könntet ihr mir das makro bitte so anpassen das er ohne abfrage alles automatisch löscht was doppelt ist?

    Ich denke das ganze hat was mit diesen zeilen zu tun aber wies dann richtig wäre weiß ich halt nicht :
    Code:
    Select Case MsgBox("Ein Duplicat befindet sich in Zeile" & iRow, 35, "Sicherheitsabfrage")
    Case 6
    Rows(iRow).Delete
    Case 2
    Exit Sub
    
    BW sind natürlich sicher
     
  2. 12. März 2007
    AW: Makro abändern

    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
    Müsste so gehen.

    Mfg

    Rushh0ur
     
  3. 12. März 2007
    AW: Makro abändern

    BIG THX Bw is raus
     
  4. 12. März 2007
    AW: Makro abändern

    [X] Erledigt.

    ~closed~

    Mfg,

    Kolazomai
     
  5. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.