Clever-Excel-Forum

Hallo,

Mein Problem besteht darin doppelte Werte in einer Tabelle zu finden und zu Markieren ich füge mal die Tabelle an.
Es befinden sich in den Zeilen und Spalten unregelmäßig Zahlen.

Mein Bestreben ist, dass wenn in der jeweiligen Zeile und dessen Spalten eine Zahl 2 mal bzw. doppelt vorkommt, so soll sie Markiert werden.

Leider finde ich keinen Ansatz das Problem zu lösen und hoffe auf Eure Hilfe
Danke

Hola,

Zitat: wenn in der Jeweiligen Zeile und dessen Spalten

wo denn jetzt genau?
Anhand deines Beispiels, was soll genau markiert werden?

Gruß,
steve1da

Servus ich hab mich wohl Falsch ausgedrückt ich versuche es mal so

Wie Du ja in der Tabelle siehst kommen die Zahlen unregelmäßig vor

so etwa 16 2 4 6 12 17 9 13 wenn nun in dieser Zeile zb. die Zahl 4 zweimal enthalten ist, so soll diese
Farblich markiert werden und dass Zeile für Zeile

Danke für die Hilfe

Hola,

in deinem Beispiel würde also überhaupt nichts markiert werden.

D3 bis T3 markieren. Start - Bedingte Formatierung - Neue Regel - Formel zur Ermittlung....

Code:
=ZÄHLENWENN($D3:$T3;D3)>1

Das überträgst du dann via Formatpinsel auf jede weitere Zeile, einzeln.

Gruß,
steve1da

Servus ,

Das ist genau das was ich nicht brauche denn ich soll vor den doppelten Fehleingaben gewarnt werden
somit brauche ich eine VBA Lösung weil ja die Eingaben nicht immer in den gleichen Spalten sind

und wie gesagt ich bräuchte die Lösung dass ich vor Doppeleingaben gewarnt bzw geschützt werde
und das in VBA

Trotzdem Danke für Deine Mühe oder fällt Dir noch was ein ? zu dem Thema

Wenn man den Bereich als Tabelle definiert, gibt es -rechte Maustaste- eine Funktion "Duplikate finden"

Servus Nochmal

Einen VBA Code habe ich mir ja erstellt aber dieser Hilft mir nur wenn die Mindestens 9 eingaben
gemacht sind also ab der 10. Eingabe

Code:
Sub Doppelte_Markieren()

                     Cells(25, 2) = ""

                     Cells(25, 2).Interior.ColorIndex = 55

                     Cells(24, 22) = ""

   For Zeile = 3 To 20 Step 2

   For Spalte = 2 To 21

                     Cells(Zeile, Spalte).Interior.ColorIndex = 42

                     Cells(Zeile, Spalte).Font.ColorIndex = 1

                     Cells(Zeile + 1, Spalte).Interior.ColorIndex = 19

                     Cells(Zeile + 1, Spalte).Font.ColorIndex = 1

                     Cells(21, Zeile + 1).Interior.ColorIndex = 19

                     Cells(21, Zeile).Interior.ColorIndex = 42

                     Cells(23, Zeile + 1).Interior.ColorIndex = 42

                     Cells(23, Zeile).Interior.ColorIndex = 19

                     Cells(46, 22).Interior.ColorIndex = 42

   Next Spalte

 Next Zeile

         ErsteZeile = 28

              LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row

         ErsteSpalte = 4

              LetzteSpalte = 21       'Cells(28, Columns.Count).End(xlToLeft).Column

                      Range(Cells(27, ErsteSpalte), Cells(27, LetzteSpalte)).Interior.ColorIndex = 2

         For Zeile = ErsteZeile To LetzteZeile

         For Spalte = ErsteSpalte To LetzteSpalte

                      Cells(Zeile, Spalte).Interior.ColorIndex = 2

                      Cells(Zeile, 2).Interior.ColorIndex = 2

                      Cells(Zeile, 3).Interior.ColorIndex = 2

             If Cells(21, Spalte) > 9 Then

                      Cells(21, Spalte).Interior.ColorIndex = 6

                      Spalte2 = Cells(21, Spalte).Value

             End If

        If Cells(27, Spalte).Interior.ColorIndex = 6 Then

                     Cells(1, 1) = Cells(27, Spalte).Value

        End If

            If Cells(Zeile, Spalte) = 2 Then

               Cells(Zeile, Spalte).Interior.ColorIndex = 6

               Cells(27, Spalte).Interior.ColorIndex = 6

               Cells(1, 1) = Cells(27, Spalte).Value

               Cells(Zeile - 25, 3).Interior.ColorIndex = 6

               Cells(25, 2).Interior.ColorIndex = 3

               Cells(25, 2).Font.ColorIndex = 6

               Cells(24, 22) = Cells(Zeile - 25, 3).Value

      VereinsName = Cells(24, 22).Value

      sSuchbegriff = VereinsName

      Doppelt = Spalte2

      sSuchbegriff2 = Doppelt

      GegnerNummer = Cells(1, 1).Value

      sSuchbegriff3 = GegnerNummer

      Set Doppelte = Worksheets("Spielplan").Range("Teams").Find(what:=sSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)

      Set DoppelSpalte = Worksheets("Spielplan").Range("GesSpiele").Find(what:=sSuchbegriff2, lookat:=xlWhole, LookIn:=xlValues)

      Cells(Doppelte.Row, DoppelSpalte.Column).Interior.ColorIndex = 3

      Cells(Doppelte.Row, DoppelSpalte.Column).Font.ColorIndex = 6

      Set VereinsNamenSpalte = Worksheets("Spielplan").Range("GegnerNummern").Find(what:=sSuchbegriff3, lookat:=xlWhole, LookIn:=xlValues)

               Cells(25, 2) = "Die Mannschaft " & _

                           Space(1) & Cells(VereinsNamenSpalte.Row, 3).Value & _

                           Space(1) & "mit der Nummer" & Space(3) & GegnerNummer & _

                           Space(1) & "ist doppelt vorhanden in der Zeile von" & _

                           Space(1) & Cells(Zeile - 25, 3).Value

               End If

      Cells(46, Spalte).Interior.ColorIndex = 40

      If Cells(46, Spalte) > 0 Then

            AlleSpiele = AlleSpiele + Cells(46, Spalte).Value

                Cells(46, 22) = AlleSpiele / 9

      End If

   Next Spalte

 AlleSpiele = 0

 Next Zeile

End Sub

Hallo
Ist schon klar nur wenn man sich das Beispiel ansieht dann sieht man dass die Zahlen in allen Zeilen immer wieder auftauchen
ich brauche eine VBA Lösung um die Duplikate in den einzelnen Zeilen zu ermitteln und das direkt nach der Fehleingabe darum die VBA Variante
und weil in dem Kompletten Programm keine Formellösung ist

Ich stelle mal die Ganze Mappe ein zum besseren Verständnis oder auch nicht ?

Hallo
die gesendete Mappe Funktionier nur Eingeschränkt da die Bundesliga Embleme Fehlen und ich die Komplette Datei wg. der Größe nicht
Hochladen Konnt
Danke

(18.01.2016, 14:16)freddy schrieb: [ -> ]Das ist genau das was ich nicht brauche denn ich soll vor den doppelten Fehleingaben gewarnt werden
somit brauche ich eine VBA Lösung weil ja die Eingaben nicht immer in den gleichen Spalten sind

ich verstehe Dein Problem nicht, mit dem Vorschlag von Steve funktioniert es doch genau wie gewünscht, dazu wird kein VBA benötigt:

Spielplan

	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T
2	Nr:	Team [ Spieltag -->	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
3	1	FC Bayern München	16		4	5		2		7		12		14		15		17
4	2	VfL Wolfsburg	9		6		15		13		8		4		10		7	16
5	3	Borussia M Gladbach		11		16		5		2		6		17	13		1		18
6	4	Bayer 04 Leverkusen	8	18		18		11		5		14		12		6		3
7	5	FC Augsburg	15		17		13		8		18		11	10		2		6
8	6	FC Schalke 04		18		11		9		12	15	9	17		1		13		8
9	7	Borussia Dortmund	3		15		4		18			5		6		14		9
10	8	TSG Hoffenheim		1		10		7		14		16		9		3		13

Schriftart wird in dieser Tabelle nicht dargestellt

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed. Regeltyp	Operator	Formel1	Formel2	Format Schrift Füllfarbe	Unterstrichen	Schrift- farbe	Muster	Musterfarbe	Typ	Bereich
$D$10:$T$10	01.Bed.: Formel ist		=ZÄHLENWENN($D10:$T10;D10)>1		49407					2	D10:T10
$D$3:$T$3	01.Bed.: Formel ist		=ZÄHLENWENN($D3:$T3;D3)>1		49407					2	D3:T3
$D$4:$T$4	01.Bed.: Formel ist		=ZÄHLENWENN($D4:$T4;D4)>1		49407					2	D4:T4
$D$5:$T$5	01.Bed.: Formel ist		=ZÄHLENWENN($D5:$T5;D5)>1		49407					2	D5:T5
$D$6:$T$6	01.Bed.: Formel ist		=ZÄHLENWENN($D6:$T6;D6)>1		49407					2	D6:T6
$D$7:$T$7	01.Bed.: Formel ist		=ZÄHLENWENN($D7:$T7;D7)>1		49407					2	D7:T7
$D$8:$T$8	01.Bed.: Formel ist		=ZÄHLENWENN($D8:$T8;D8)>1		49407					2	D8:T8
$D$9:$T$9	01.Bed.: Formel ist		=ZÄHLENWENN($D9:$T9;D9)>1		49407					2	D9:T9

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$D$10:$T$10	01.Bed.		Falsch					2	D10:T10
$D$3:$T$3	01.Bed.		Falsch					2	D3:T3
$D$4:$T$4	01.Bed.		Falsch					2	D4:T4
$D$5:$T$5	01.Bed.		Falsch					2	D5:T5
$D$6:$T$6	01.Bed.		Falsch					2	D6:T6
$D$7:$T$7	01.Bed.		Falsch					2	D7:T7
$D$8:$T$8	01.Bed.		Falsch					2	D8:T8
$D$9:$T$9	01.Bed.		Falsch					2	D9:T9

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Füllfarben und Muster
Zelle	Rot	Grün	Blau	Color	Muster	Farbe
B2	217	217	217	14277081
B3: T3, B5: T5, B7: T7, B9: T9	51	204	204	13421619
B4: T4, B6: T6, B8: T8, B10: T10	255	255	204	13434879
C2	255	242	204	13431551
D2:T2	189	215	238	15652797

Zellen mit Füllfarbe automatisch werden nicht dargestellt

Schriftformate
Zelle	Rot	Grün	Blau	Color	Stil	Unterstreichung	Effekte	Durchgestrichen	Schriftart
C3, C5, C7, C9	0	0	0	0	Fett

Zellen mit Schriftformatierung automatisch werden nicht dargestellt

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 21.07 einschl. 64 Bit

Beachte: er schrieb

Zitat:Das überträgst du dann via Formatpinsel auf jede weitere Zeile, einzeln.

freddy

steve1da

freddy

steve1da

freddy

Fennek

freddy

freddy

freddy

Rabe