Doppelte Einträge löschen
16.03.2006 14:44:04
Sven
ich habe diesen VBA Code gefunden, da ich genau sowas suche. Ich habe leider keine Ahnung von VBA Programmierung und habe folgendes gemacht.
Mit Alt+ F11 den VBA Editor gestartet und dann unter Einfügen Modul ein Modul erstellt.
Nun habe ich den Code eingeschrieben
https://www.herber.de/mailing/003397h.htm
CODE:
StandardModule: basMain
Sub DblFind()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(x1Up).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
/CODE:
Es komme aber leider eine Fehler Meldung
StandardModule: basMain
wird makiert mit der Fehlermeldung
Fehler beim Kompilieren
Ausserhalb einer Prozedur ungültig
Wo ist da der Fehler?
Wäre für Hilfe dankbar !
CU
Sven Apel
Anzeige