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

Forumthread: doppelte Werte suchen und markieren

doppelte Werte suchen und markieren
Wolfgang
Hallo,
suche eine Lösung für folgendes Problem:
Habe eine Tabelle, in der von Zelle A10 bis J1000 Daten mittels Maske eingetragen werden. Nun kommt es vor, das bei der Auswertung = Ausdruck in einigen Zeilen (immer die komplette Zeile ist doppelt, nicht eine Zelle !!!) doppelte Werte stehen.
Gibt es eine Möglichkeit per Makro, den Bereich von A10:J1000 zeilenweise nach doppelten Einträgen, die in allen Spalten vorkommen müssen, zu suchen und diese evtl. per bedingte Formatierung farblich zu markieren. Versuche es schon mittels Makroaufzeichnung, aber es klappt irgendwie nicht ;-(
vielen Dank für mögliche Hilfe
Wolfgang
Anzeige
AW: doppelte Werte suchen und markieren
26.11.2009 12:43:01
Rudi
Hallo,
in einer Hilfsspalte die Zellen A:J verketten und mit Zählenwenn auf Duplikate testen.
Gruß
Rudi
AW: doppelte Werte suchen und markieren
26.11.2009 13:00:15
Wolfgang
Hallo,
das hatte ich auch schon mal irgendwie probiert und hat nicht funktioniert, aber ich meine das so, dass es keine "Vorgabe" über eine Maske oder so gibt, einfach nur nach möglichen doppelten oder mehrfach vorkommenden gleichen Zellen EINER Zeile markieren? Vielleicht habe ich mich auch falsch ausgedrückt ;-(
Wolfgang
Anzeige
AW: doppelte Werte suchen und markieren
26.11.2009 13:11:35
Mike
Hey Wolfgang,
das Zählenwenn ist keine Maske und lässt sich
auch gut auf Deine Zeilen-Anforderung anwenden.
Tabelle1
 ABCDEFGHIJ
25  112121345
26  344556111

verwendete Formeln
Zelle Formel
B26 =ZÄHLENWENN($B2:B25; B25)
C26 =ZÄHLENWENN($B2:C25; C25)
D26 =ZÄHLENWENN($B2:D25; D25)
E26 =ZÄHLENWENN($B2:E25; E25)
F26 =ZÄHLENWENN($B2:F25; F25)
G26 =ZÄHLENWENN($B2:G25; G25)
H26 =ZÄHLENWENN($B2:H25; H25)
I26 =ZÄHLENWENN($B2:I25; I25)
J26 =ZÄHLENWENN($B2:J25; J25)

Füllfarben und Muster
Zelle Rot Grün Blau Color Muster Farbe
A25 19219219212632256   
Zellen mit Füllfarbe automatisch werden nicht dargestellt

Tabellendarstellung in Foren Version 4.28


Gruss
Mike
Anzeige
AW: doppelte Werte suchen und markieren
26.11.2009 13:31:11
Wolfgang
Hallo Mike,
dass "zählenwenn" keine Maske ist, das ist schon klar!
Es ist einfach so gesagt oder geschrieben:
(Makro) gucke mal nach, ob im Bereich a10:j1000 und NUR da ZEILENWEISE irgendwo sich auf der kompletten Zeile a:j etwas doppelt befindet?
und dann markiere es
Ich weiß es hört sich kompliziert an, aber ich gebe mir mühe, es einfach zu erklären ;-)
Anzeige
AW: doppelte Werte suchen und markieren
26.11.2009 14:15:48
Wolfgang
Hallo Hary,
nein!
als beispiel genannnt:
in der zeile a100 sind die werte folgend vorhanden:
a100= 1; b100=abx; c100=klm; d100=123; e100=abs; f100=abt; g100=0987; h100=4568 und j100=xxx
und diese zeile kommt irgendwann mal so in Zeile 600 nochmals vor!
Nun würde ich eben gerne diese Zeile als Wiederholung von Zeile 100 markiert haben und zwar die gesamte Zeile!!
Vielleicht hilft dies ...
Gruß
Wolfgang
Anzeige
AW: doppelte Werte suchen und markieren
26.11.2009 15:19:27
Wolfgang
Danke,
das isses!! vielen vielen Dank!
Wolfgang
Bitte, danke fuer Rueckmeldung owT
26.11.2009 15:21:46
hary
.
Anzeige
AW: Bitte, danke fuer Rueckmeldung owT
26.11.2009 15:43:59
Wolfgang
äääh, habe das makro nun in die datei von mir übernommen und nun stürzt excel immer ab!
Jetzt bin ich ratlos?
Habe in der Datei von Dir das ein paarmal durchprobiert und auch nach unten entsprechende kopiert und da hat es mit den Buchstaben geklappt, aber nun nicht mehr ?
Woran kann das wieder liegen?
Gruß
Wolfgang
Anzeige
AW: Bitte, danke fuer Rueckmeldung owT
26.11.2009 15:52:37
Wolfgang
Hallo Hary,
weiß auch schon woran es liegt,
da unterhalb von der Zeile z.B. 222 nichts mehr steht möchte nun das Makro alle Zeilen markieren und nun hat der PC ein Problem und bringt eben Excel zum Absturz!!
weiß nicht wie man dies "auffangen" kann oder dass der Bereich zum Überprüfen erst "abgefragt" wird ob Zellen 'benutzt' also beschrieben sind und den Rest einfach nicht mit "kontrolliert" oder so ...
... vielleicht habe ich mich auch ein bißchen dumm ausgeschrieben ;-)
Gruß
Wolfgang
Anzeige
AW: teste mal
26.11.2009 16:21:57
hary
hallo
dann versuch's mal so. von zeile 10 bis letzte benutzte Zelle in SpalteA

Dim i As Long
Dim rng As Range
Application.ScreenUpdating = False
Range("A10:J1000").Interior.ColorIndex = xlNone
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row ' 1 bis letzte benutzte zeile in SpalteA
If WorksheetFunction.CountIf(Range("K10:K1000"), Cells(i, 11)) > 1 Then
For Each rng In Range("A" & i & ":J" & i)
rng.Interior.ColorIndex = 3
Next
End If
Next
Application.ScreenUpdating = True

gruss hary
Anzeige
AW:beispielmappe
26.11.2009 16:02:14
hary
Hallo Wolfgang
lad mal eine beispielmappe hoch wo's zum Absturz kommt.
gruss hary
AW: AW:beispielmappe
26.11.2009 16:20:10
Wolfgang
wie ?
was ist damit gemeint?
bin ja nicht der profi und weiß nicht was damit gemeint ist
AW: besser so!!!
26.11.2009 16:28:46
hary
hallo Wolfgang
so ist es besser. Es werden nur die gefuellten Zeilen geprueft.
hier die Mappe.
https://www.herber.de/bbs/user/66204.xls

Dim i As Long
Dim rng As Range
Application.ScreenUpdating = False
Range("A10:J1000").Interior.ColorIndex = xlNone
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row ' 1 bis letzte benutzte zeile in SpalteA
If Cells(i, 1)  "" Then
If WorksheetFunction.CountIf(Range("K10:K1000"), Cells(i, 11)) > 1 Then
For Each rng In Range("A" & i & ":J" & i)
rng.Interior.ColorIndex = 3
Next
End If
End If
Next
Application.ScreenUpdating = True

gruss hary
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Werte in Excel suchen und markieren


Schritt-für-Schritt-Anleitung

Um doppelte Werte in Excel zu finden und zu markieren, kannst Du die folgende Schritt-für-Schritt-Anleitung verwenden:

  1. Öffne Excel und lade deine Tabelle, in der Du nach doppelten Werten suchen möchtest.
  2. Markiere den Bereich von A10 bis J1000, wo die Daten eingegeben werden.
  3. Gehe zur Registerkarte "Start" und klicke auf Bedingte Formatierung.
  4. Wähle Regeln zum Hervorheben von Zellen und dann Doppelte Werte.
  5. Wähle die Formatierung aus, die Du für die doppelten Werte verwenden möchtest (z.B. eine rote Füllfarbe).
  6. Klicke auf OK und die doppelten Werte werden nun in der angegebenen Farbe hervorgehoben.

Falls Du eine Excel-Formel verwenden möchtest, um doppelte Werte anzuzeigen, kannst Du die Formel =ZÄHLENWENN($A$10:$J$1000; A10) > 1 in einer Hilfsspalte verwenden.


Häufige Fehler und Lösungen

  • Excel stürzt ab: Wenn Excel abstürzt, kann das an der Überprüfung von leeren Zellen liegen. Stelle sicher, dass Du nur die gefüllten Zeilen überprüfst. Verwende dazu den VBA-Code, der nur die benutzten Zeilen durchläuft.

  • Doppelte Werte werden nicht richtig angezeigt: Überprüfe, ob die Bedingte Formatierung korrekt angewendet wurde. Manchmal können Formatierungsregeln verloren gehen, wenn die Zellen kopiert oder verschoben werden.


Alternative Methoden

  1. VBA-Makro: Wenn Du eine automatisierte Lösung möchtest, kannst Du ein VBA-Makro verwenden, um doppelte Werte zu finden und zu markieren. Hier ist ein einfaches Beispiel:

    Dim i As Long
    Dim rng As Range
    Application.ScreenUpdating = False
    Range("A10:J1000").Interior.ColorIndex = xlNone
    For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
       If WorksheetFunction.CountIf(Range("A10:J1000"), Cells(i, 1)) > 1 Then
           For Each rng In Range("A" & i & ":J" & i)
               rng.Interior.ColorIndex = 3
           Next
       End If
    Next
    Application.ScreenUpdating = True
  2. Hilfsspalte: Du kannst auch eine Hilfsspalte verwenden, um die Werte zu verketten und mit ZÄHLENWENN nach doppelten Inhalten zu suchen.


Praktische Beispiele

  • Nehmen wir an, Du hast in Zeile 100 folgende Werte: 1, abx, klm, 123, abs, abt, 0987, 4568, xxx. Wenn diese gesamte Zeile in Zeile 600 wiederholt wird, sollte das Makro oder die bedingte Formatierung diese Zeile farblich markieren.

  • Beispiel für die Verwendung von ZÄHLENWENN:

    =ZÄHLENWENN(A10:J1000; A10) > 1

Tipps für Profis

  • Verwende Tastenkombinationen wie Alt + H + L für die bedingte Formatierung, um die Schritte schneller auszuführen.
  • Du kannst die Bedingte Formatierung auch kombinieren, um komplexere Bedingungen für das Markieren von doppelten Werten zu schaffen.
  • Bei großen Datenmengen kann es hilfreich sein, die Daten vor der Überprüfung zu sortieren, um die Suche zu erleichtern.

FAQ: Häufige Fragen

1. Wie finde ich doppelte Werte in einer Zeile?
Du kannst die bedingte Formatierung nutzen, um doppelte Werte in einer Zeile anzuzeigen. Wähle den entsprechenden Bereich aus und wende die Regel für doppelte Werte an.

2. Was mache ich, wenn Excel ständig abstürzt?
Stelle sicher, dass Du nur die benutzten Zellen überprüfst und alle leeren Zellen aus dem Bereich ausschließt. Verwende ein VBA-Makro, das nur bis zur letzten benutzten Zeile geht.

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