Registriert seit: 14.04.2014
Version(en): Office 2013
18.01.2016, 13:01
(Dieser Beitrag wurde zuletzt bearbeitet: 18.01.2016, 15:19 von Rabe.
Bearbeitungsgrund: redundante Zeilenumbrüche entfernt
)
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
Grüße
aus dem schönen Bayern
Freddy
Excel 2013 Win8
Registriert seit: 16.04.2014
Version(en): xl2016/365
Hola,
Zitat: wenn in der Jeweiligen Zeile und dessen Spalten
wo denn jetzt genau?
Anhand deines Beispiels, was soll genau markiert werden?
Gruß,
steve1da
Registriert seit: 14.04.2014
Version(en): Office 2013
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
Grüße
aus dem schönen Bayern
Freddy
Excel 2013 Win8
Registriert seit: 16.04.2014
Version(en): xl2016/365
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
Registriert seit: 14.04.2014
Version(en): Office 2013
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
Grüße
aus dem schönen Bayern
Freddy
Excel 2013 Win8
Registriert seit: 06.12.2015
Version(en): 2016
Wenn man den Bereich als Tabelle definiert, gibt es -rechte Maustaste- eine Funktion "Duplikate finden"
Registriert seit: 14.04.2014
Version(en): Office 2013
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
Grüße
aus dem schönen Bayern
Freddy
Excel 2013 Win8
Registriert seit: 14.04.2014
Version(en): Office 2013
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 ?
Grüße
aus dem schönen Bayern
Freddy
Excel 2013 Win8
Registriert seit: 14.04.2014
Version(en): Office 2013
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
Grüße
aus dem schönen Bayern
Freddy
Excel 2013 Win8
Registriert seit: 10.04.2014
Version(en): 2016 + 365
18.01.2016, 15:29
(Dieser Beitrag wurde zuletzt bearbeitet: 18.01.2016, 15:31 von Rabe.)
(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 dargestelltExcel-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.
|