doppelte Einträge finden VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema " doppelte Einträge finden VBA"