Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aufeinander folgende Doubletten markieren

Aufeinander folgende Doubletten markieren
Stefan
Hallo,
wie kann ich in einer Spalte aufeinander folgende Doubletten farbig markieren?
Also immer wenn in einer Spalte mehrmals untereinander der gleiche Textinhalt kommt, dann diese Farbig zusammenfügen. Das kann aber immer die gleiche Farbe für alle sein.
Daaanke
Stefan
AW: Aufeinander folgende Doubletten markieren
07.10.2009 14:32:46
Matthias
Hallo,
versuchs mal über Start - Bedingte Formatierung - Zellen hervorheben - doppelte Inhalte
AW: Aufeinander folgende Doubletten markieren
07.10.2009 14:39:26
Tanja
Hallo Stefan,
oder Zelle A2 über bedingte Formatierung
Zellwert ist
gleich
=A1
formatieren.
Den Formatierungspinsel nehmen, alles runterzeiehn und es sollte klappen.
Weiß allerdings nun nicht, welche Lösung eleganter ist :-)
AW: Aufeinander folgende Doubletten markieren
07.10.2009 14:39:23
marcl
Hallo Stefan,
Sub markieren()
Range("A2").Select
Do While ActiveCell  ""
If Cells(ActiveCell.Row - 1, ActiveCell.Column) = Cells(ActiveCell.Row, ActiveCell.Column) Then  _
Range(Cells(ActiveCell.Row - 1, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column)).Font.ColorIndex = 3
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Gruß
marcl
Anzeige
AW: Aufeinander folgende Doubletten markieren
07.10.2009 15:10:20
Stefan
Danke. Seltsamerweise erfasst das Makro mal welche und dann wieder nicht. Selbst wenn ich die Zelle zur Prüfung kopiere, wird es nicht gefärbt.
Ich habe das Makro im Range geändert:
Sub markieren()
Range("A2:A10000").Select
Do While ActiveCell  ""
If Cells(ActiveCell.Row - 1, ActiveCell.Column) = Cells(ActiveCell.Row, ActiveCell.Column) Then  _
_
Range(Cells(ActiveCell.Row - 1, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column)). _
Font.ColorIndex = 3
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Was kann der Fehler sein?
AW: Aufeinander folgende Doubletten markieren
07.10.2009 15:14:44
marcl
Hi,
könnten es Nachkommastellen sein, welche durch Zahlenformat nicht sichtbar sind?
Gruß
marcl
Anzeige
AW: Aufeinander folgende Doubletten markieren
07.10.2009 15:16:38
Stefan
Danke erst einmal für Deine Hilfe!
Zum Thema:
Eigentlich nicht, es sind Namen. Ich habe selbst zum Testen mal Zellen kopiert und es ging dann nicht.
AW: Aufeinander folgende Doubletten markieren
07.10.2009 15:09:15
wolfgang
Hallo Stefan,
versuche es malt mit "bedingter Formatierung"
=ZÄHLENWENN($A1:$A10;$A1:$A10)größer1
(im Beispiel ist die Spalte A1:A10 bedingt formatiert; alle doppelt gelisteten Einträge werden farbig markiert)
Mit Gruß
Wolfgang
AW: Aufeinander folgende Doubletten markieren
07.10.2009 15:14:47
Stefan
Hmm, also damit geht irgendwie gar nichts... :(
Also es sollen nur die markiert werden, die untereinander, also direkt untereinander doppelt auftauchen:
Also
Martina
Ralf
Clemens ---
Clemens --- nur diese beiden markieren
Ralf
Clemens
Anzeige
AW: Aufeinander folgende Doubletten markieren
07.10.2009 16:37:34
Matthias
Hallo nochmal,
dann solltest du eine Bedingte Formatierung über eine Formel realisieren.
Dazu die gesamte Spalte markieren und im Formelfeld der Bedingten Formatierung folgende Formel eingeben:
=WENN(A2=A1;WAHR;FALSCH)
Format auswählen und freuen.
AW: Aufeinander folgende Doubletten markieren
07.10.2009 16:55:13
Stefan
Super, funktioniert. Danke

60 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige