Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wenn Funktion Doppelte einträge automatisch lösche

Wenn Funktion Doppelte einträge automatisch lösche
15.09.2006 16:01:33
Pinky
hi, brauche hilfe, habe eine riesen excelliste und will in der ersten zeile, die nach agenturnummern geordnet ist, die auch mehrmals enthalten sind. eine formel haben, die mir entweder anzeigt welche doppelt sind ( jeweils 1 mal die Nr natürlich nicht) oder die doppelten direkt löscht, so das immer nur 1mal die nummer übrigbleibt. kann mir da einer helfen?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Funktion Doppelte einträge automatisch lö
15.09.2006 16:08:59
Matthias
Hallo Pinky,
dieses Makro löscht (von unten nach oben) alle Zeilen, in denen der Inhalt von Spalte A weiter oben nochmals vorkommt:

Sub DoppelteLöschen()
Dim lz As Long, i As Long
Dim rng As Range
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 1 Step -1
Set rng = Range(Cells(1, 1), Cells(i, 1))
If Application.WorksheetFunction.CountIf(rng, Cells(i, 1)) > 1 Then _
Rows(i).Delete Shift:=xlUp
Next i
End Sub

GRuß Matthias
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige