Doppelt Werte

[freddy]

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

[steve1da]

Hola,

 wenn in der Jeweiligen Zeile und dessen Spalten

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

Gruß,
steve1da

[freddy]

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

[steve1da]

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

[freddy]

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

[Fennek]

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

[freddy]

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

[freddy]

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 ?

[freddy]

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

[Rabe]

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

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