Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Einträge markieren?

Doppelte Einträge markieren?
15.01.2005 19:05:38
Andi
Hallo!
In meinen Spalten steht folgendes: A: Vorname - B: Name - C: eMail
Ich würde nun gerne mit einem VBA-Skript alle doppelten Einträge in der eMail-Spalte C suchen und markieren lassen.
Könnte mir evtl. jemand helfen?
Danke!
Andi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Einträge markieren?
15.01.2005 19:20:05
Josef
Hallo Andi!
Wieso mit VBA?
Markiere Spalte "C" &gt Bedingte Formatierung &gt Formel ist
 "=ZÄHLENWENN($C:$C;C1)>1"

Format wählen &gt OK
Gruß Sepp
AW: Doppelte Einträge markieren?
15.01.2005 19:24:37
Andi
Auf so eine Idee bin ich natürlich auch schon gekommen, aber ich würds gern mit nem VBA-Skript auf Knopfdruck machen und mit nem anderen Skript kombinieren...
Aber danke für die Antwort.
Vielleicht hat ja jemand ne Lösung?
AW: Doppelte Einträge markieren?
Ramses
Hallo
was hältst du davon das ganze mal mit dem Makrorekorder aufzuzeichnen ?
Dann weisst du, wie man das in VBA macht.
Gruss Rainer
Anzeige
dann halt VBA!
15.01.2005 19:32:10
Josef
Hallo Andi!
Viel Spass!


      
Sub markiereDoppelte()
Dim rng As Range
Dim bereich As Range
Set bereich = Range("C1:C100")   'Bereich der durchsucht wird

   For Each rng In bereich
      If Application.CountIf(bereich, rng) > 1 Then _
         rng.Interior.ColorIndex = 6
   Next
End Sub 


Gruß Sepp
Anzeige
AW: dann halt VBA!
15.01.2005 19:48:14
Andi
Danke!
Klappt!!! :-)

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige