Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

doppelte Einträge finden VBA

Forumthread: doppelte Einträge finden VBA

doppelte Einträge finden VBA
07.10.2003 15:24:23
Ralph P.
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte Einträge finden VBA
07.10.2003 15:26:23
ChrisL
Hi Ralph

z.B. mit bedingter Formatierung oder Spezialfilter

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

Gruss
Chris
AW: doppelte Einträge finden VBA
07.10.2003 15:32:22
Ralph P.
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
Anzeige
AW: doppelte Einträge finden VBA
07.10.2003 15:35:19
ChrisL
Hi Ralph

Wieso mit VBA und nicht mit bedingter Formatierung?

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

Gruß
Ralph
AW: doppelte Einträge finden VBA
07.10.2003 15:41:34
ChrisL
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
Anzeige
Danke
07.10.2003 15:52:52
Ralph P.
Danke

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Doppelte Einträge in Excel mit VBA finden


Schritt-für-Schritt-Anleitung

Um doppelte Einträge in Excel mit VBA zu finden, kannst du den folgenden Schritt-für-Schritt-Ansatz verwenden:

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.
  3. Kopiere und füge den folgenden Code ein:

    Sub DuplikateFinden()
       Dim Zelle As Range
       Dim Bereich As Range
       Set Bereich = ActiveSheet.Range("A1:A100") ' Hier kannst du den Bereich anpassen
    
       For Each Zelle In Bereich
           If Application.WorksheetFunction.CountIf(Bereich, Zelle.Value) > 1 Then
               Zelle.Interior.Color = RGB(255, 0, 0) ' Farbliche Hervorhebung
           End If
       Next Zelle
    End Sub
  4. Führe das Skript aus:

    • Drücke F5, um das Skript auszuführen. Alle Duplikate im angegebenen Bereich werden rot hervorgehoben.

Häufige Fehler und Lösungen

  • Fehler: "Typenübereinstimmung"

    • Lösung: Stelle sicher, dass der angegebene Bereich korrekt ist und die Zellen Daten enthalten, die verglichen werden können.
  • Fehler: Es werden keine Duplikate hervorgehoben

    • Lösung: Überprüfe, ob die Werte im angegebenen Bereich wirklich mehrfach vorkommen. Achte auch darauf, dass keine führenden oder nachfolgenden Leerzeichen in den Zellen vorhanden sind.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch die folgenden Methoden ausprobieren:

  • Bedingte Formatierung:

    • Wähle den Bereich aus, gehe zu Start > Bedingte Formatierung > Neue Regel > Formel zur Ermittlung der zu formatierenden Zellen verwenden und gib die Formel =ZÄHLENWENN(A:A;A1)>1 ein.
  • Spezialfilter:

    • Verwende die Funktion Daten > Erweiterte Filter, um doppelte Werte zu finden und diese in einen neuen Bereich zu kopieren.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die VBA-Methode nutzen kannst:

  1. Doppelte Werte in einer größeren Liste finden: Ändere den Bereich im Code auf ActiveSheet.Range("A1:A1000"), um mehr Daten zu berücksichtigen.

  2. Farbänderung anpassen: Du kannst die RGB-Werte in Zelle.Interior.Color = RGB(255, 0, 0) anpassen, um verschiedene Farben für die Hervorhebung zu verwenden.


Tipps für Profis

  • Verwendung von Dictionary: Für eine leistungsfähigere Methode, um doppelte Werte zu finden, kannst du ein Dictionary-Objekt verwenden, um die Geschwindigkeit zu erhöhen.

  • Optimierung des Codes: Vermeide das direkte Formatieren innerhalb der Schleife, um die Leistung zu verbessern. Stattdessen kannst du die Werte zuerst in eine Sammlung einfügen und dann die Formatierung in einem separaten Schritt vornehmen.


FAQ: Häufige Fragen

1. Wie finde ich doppelte Einträge in mehreren Spalten?
Du kannst die Schleife anpassen, um mehrere Spalten zu durchlaufen, indem du die Range entsprechend erweiterst.

2. Gibt es eine einfachere Möglichkeit, ohne VBA zu arbeiten?
Ja, du kannst die bedingte Formatierung oder die Funktion Daten > Duplikate entfernen verwenden, um schnell doppelte Werte zu finden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige