Datum

Titel

25.04.2024 11:49:37

Array verwenden

25.04.2024 10:38:52

Bedingte Formatierung per VBA / MaxPoint

25.04.2024 10:30:04

Suche mit MINWENNS und Rückgabe mehrerer Werte

25.04.2024 09:47:49

Daten aus mehreren Dateien untereinander importieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1280to1284

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Doppelte Werte suchen und anzeigen

Forumthread: Doppelte Werte suchen und anzeigen
7 Beiträge zu diesem Forumthread
Anzeige
340 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

02.10.2012 09:21:55

Stephan

Guten Morgen zusammen,
ich stehe vor dem folgenden Problem. In einem Systemdownload der über mehre Seiten geht, soll es mir wenn der "Tag" mehrmals vorkommt alle anzeigen ggf. makieren) die eine andere "ID" haben, alle wo der die "ID" und der "Tag" immer gleich sind soll es mir nichts machen.
File ist im Anhang.
https://www.herber.de/bbs/user/81954.xlsx
Gibt es da eine Möglichkeit?
Besten Dank für die Unterstützung.
Freundliche Grüsse
Stephan

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Doppelte Werte suchen und anzeigen

02.10.2012 09:58:14

Schließer
AW: Doppelte Werte suchen und anzeigen

02.10.2012 10:10:44

Stephan
AW: Doppelte Werte suchen und anzeigen

02.10.2012 10:07:52

Herbert
Doppelte mit Bedingung

02.10.2012 10:10:35

Erich
noch mahl ohne Wal :-)

02.10.2012 10:19:00

Erich
noch etwas kürzer

02.10.2012 10:23:33

Erich
AW: noch etwas kürzer

02.10.2012 10:45:23

Stephan

AW: Doppelte Werte suchen und anzeigen

02.10.2012 09:58:14

Schließer

Hallo
hier 2 Möglichkeiten:
1) mit der Anzeige Fehler oder i.O.
2) mit bedingter Formatierung
Tabelle1

	E	F	G	H	I	J	K
3	ID	Tag				ID	Tag
4	320	22	Fehler			320	22
5	321	22	i.O.			321	22
6	320	22	Fehler			320	22
7	450	23	Fehler			450	23
8	450	23	Fehler			450	23
9	450	23	Fehler			450	23
10	490	24	i.O.			490	24
11	491	24	i.O.			491	24
12	192	24	i.O.			192	24
13	322	25	Fehler			322	25
14	322	25	Fehler			322	25
15	322	25	Fehler			322	25
16	380	26	i.O.			380	26
17	381	27	i.O.			381	27

Bedingte Formatierung wird in dieser Tabelle nicht dargestellt

verwendete Formeln
Zelle	Formel	Bereich
G4	=WENN(ZÄHLENWENN(E:E;E4)>1;"Fehler";"i.O.")

bedingte Formatierung
Zelle	Typ	Operator	Formel1	Formel2	Format	Unterstrichen	Schrift- farbe	Muster	Muster- farbe
J4:K4	1.Bed.: Formel ist		=ZÄHLENWENN($J:$J;$J4)>1		65535

Gruß UweD

AW: Doppelte Werte suchen und anzeigen

02.10.2012 10:10:44

Stephan

Guten Tag Uwe,
Besten Dank vorerst.
Ich habe mich wahrscheinlich zu wenig genau ausgedrückt,sorry.
Wenn der "Tag" und die "ID" mehrmals vorkommt und dieselben Werte aufweist, dann wäre dies i.O wenn aber mehrmals derselbe "Tag" vorkommt und die "ID" ist unterschiedlich, sollte es mir eien Fehler ausgeben.
Besten Dank.
Gruss Stephan

AW: Doppelte Werte suchen und anzeigen

02.10.2012 10:07:52

Herbert

Doppelte Einträge werden in Spalte 2 gessucht und in Spalte 3 markiert.
Sub Schaltfläche1_Klicken() Dim lngZeile As Long Dim lngZeilenSprung As Long Dim strSuchwert As String 'Doppelte Einträge in Spalte 2 Suchen und in Spalte 3 markieren lngZeile = Cells(Rows.Count, 2).End(xlUp).Row For lngZeilenSprung = lngZeile To 1 Step -1 strSuchwert = Cells(lngZeilenSprung, 2).Value If Application.WorksheetFunction.CountIf(Range(Cells(2, 2), Cells(lngZeile, 2)), _ strSuchwert) 1 Then Cells(lngZeilenSprung, 3).Interior.ColorIndex = 3 End If Next lngZeilenSprung End Sub

Doppelte mit Bedingung

02.10.2012 10:10:35

Erich

Hi Stephan,
noch ein Formelvorschlag:

	E	F	G	H
3	ID	Tag	Test	Soll
4	320	22	Fehler	Fehler
5	321	22	Fehler	Fehler
6	320	22	Fehler	Fehler
7	450	23	i.O.	i.O.
8	450	23	i.O.	i.O.
9	450	23	i.O.	i.O.
10	490	24	Fehler	Fehler
11	491	24	Fehler	Fehler
12	192	24	Fehler	Fehler
13	322	25	i.O.	i.O.
14	322	25	i.O.	i.O.
15	322	25	i.O.	i.O.
16	380	26	i.O.	i.O.
17	381	27	i.O.	i.O.

Formeln der Tabelle

Zelle	Formel
G4	=WAHL(1+(SUMMENPRODUKT((E$4:E$17<>E4)*(F$4:F$17=F4))>0); "i.O.";"Fehler")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

noch mahl ohne Wal :-)

02.10.2012 10:19:00

Erich

Hi Stephan,
es geht natürlich auch mit einem WENN:

	E	F	G
3	ID	Tag	Test
4	320	22	Fehler
5	321	22	Fehler
6	320	22	Fehler
7	450	23	i.O.
8	450	23	i.O.

Formeln der Tabelle

Zelle	Formel
G4	=WENN(SUMMENPRODUKT((E$4:E$17<>E4)*(F$4:F$17=F4))=0;"i.O.";"Fehler")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

noch etwas kürzer

02.10.2012 10:23:33

Erich

Hi Stephan,
das reicht auch:

	G
3	Test
4	Fehler

Formeln der Tabelle

Zelle	Formel
G4	=WENN(SUMMENPRODUKT((E$4:E$17<>E4)*(F$4:F$17=F4)); "Fehler";"i.O.")

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

AW: noch etwas kürzer

02.10.2012 10:45:23

Stephan

Hallo Erich und Herbert,
hei super! Funktioniert alles einwandfrei. Zeigt mir wiedereinmal, dass bekanntlich viele Wege an das selbe Ziel führen.
Besten Dank, ich wünsch euch noch einen schönen Tag.
Gruss Stephan