doppelte Einträge finden VBA

• doppelte Einträge finden VBA von Ralph P. vom 07.10.2003 15:24:23
  • AW: doppelte Einträge finden VBA - von ChrisL am 07.10.2003 15:26:23
    • AW: doppelte Einträge finden VBA - von Ralph P. am 07.10.2003 15:32:22
      • AW: doppelte Einträge finden VBA - von ChrisL am 07.10.2003 15:35:19
        • AW: doppelte Einträge finden VBA - von Ralph P. am 07.10.2003 15:38:33
          • AW: doppelte Einträge finden VBA - von ChrisL am 07.10.2003 15:41:34
            • Danke - von Ralph P. am 07.10.2003 15:52:52

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

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




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




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




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




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




Betrifft: Danke
von: Ralph P.
Geschrieben am: 07.10.2003 15:52:52

Danke

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