Herbers Excel-Forum - das Archiv

doppelte Einträge finden VBA

Bild

Betrifft: doppelte Einträge finden VBA
von: Ralph P.
Geschrieben am: 07.10.2003 15:24:23
Gibt es eine schnellere Möglichkeit doppelte Einträge in einer Spalte einer Tabelle zu finden als eine For next Schleife?

Die zu vergleichenden Werte befinden sich alle in einer Spalte.

Gruß Ralph

Bild

Betrifft: AW: doppelte Einträge finden VBA
von: ChrisL
Geschrieben am: 07.10.2003 15:26:23
Hi Ralph

z.B. mit bedingter Formatierung oder Spezialfilter

Generell ist auch ZÄHLENWENN eine gute Methode bzw. Application.WorksheetFunction.CountIf()

Gruss
Chris
Bild

Betrifft: AW: doppelte Einträge finden VBA
von: Ralph P.
Geschrieben am: 07.10.2003 15:32:22
Danke erst mal für die schnelle Antwort.

In meinem Problem ist es so, dass mehrere doppelt und mehrfach vorkommende Werte farblich via VBA-Skript hervorgehoben werden sollen. Ich sehe mit deinen Vorschlägen im Moment keine Lösung dafür.

Gruß Ralph
Bild

Betrifft: AW: doppelte Einträge finden VBA
von: ChrisL
Geschrieben am: 07.10.2003 15:35:19
Hi Ralph

Wieso mit VBA und nicht mit bedingter Formatierung?

Gruss
Chris
Bild

Betrifft: AW: doppelte Einträge finden VBA
von: Ralph P.
Geschrieben am: 07.10.2003 15:38:33
Weil dies nur ein Teil eines komplexeren VBA-Skriptes ist. Ich möchte dies nur schneller gestalten.

Gruß
Ralph
Bild

Betrifft: AW: doppelte Einträge finden VBA
von: ChrisL
Geschrieben am: 07.10.2003 15:41:34
Schneller als mit bedingter Formatierung geht es nicht, aber anyway...

Dim Zelle As Range

for each zelle in activesheet.range("A1:A100")
if application.worksheetfunction.countif(zelle, range("A1:A100"))> 1 then msgbox "Duplikat"
next zelle

Gruss
Chris
Bild

Betrifft: Danke
von: Ralph P.
Geschrieben am: 07.10.2003 15:52:52
Danke
 Bild
Excel-Beispiele zum Thema " doppelte Einträge finden VBA"
Doppelte Einträge finden und löschen Doppelte Datensätze löschen
Doppelte Zelleinträge listen Doppelte Datensätze und Leerzeilen löschen
Doppelte Datensätze farblich markieren und auflisten Doppelte Eingabe von Werten verhinden
In mehrere Spalten doppelte Inhalte entfernen Doppelte Einträge in UserForm-ListBox löschen
Auf Doppelte prüfen, bevor Tabelleneintrag Schaltflächen-Id-Nummer finden und Schaltfläche einfügen