ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
Public Sub mark_double()
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 5 To 500
szCompare = Sheets(1).Cells(i, 6).Value
For xx = i + 1 To 500
If Sheets(1).Cells(xx, 6).Value = szCompare Then
Sheets(1).Cells(xx, 6).Font.ColorIndex = 3
End If
Next xx
Next i
End Sub
greeze
e
Public Sub mark_double()
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 5 To 500
szCompare = Sheets(1).Cells(i, 6).Value
For xx = i + 1 To 500
If Sheets(1).Cells(xx, 6).Value = szCompare Then
Sheets(1).Cells(xx, 6).Font.ColorIndex = 3
Sheets(1).Cells(i, 6).Font.ColorIndex = 3
End If
Next xx
Next i
End Sub
greeze
e
Um in Excel alle Zellen mit gleichem Inhalt farblich zu markieren, kannst du die bedingte Formatierung oder VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung für beide Methoden:
Methode 1: Bedingte Formatierung
F5:F500).=ZÄHLENWENN($F$5:$F$500;F5)>1Methode 2: VBA
ALT + F11, um den VBA-Editor zu öffnen.Public Sub mark_double()
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 5 To 500
szCompare = Sheets("Ausgabe").Cells(i, 6).Value
For xx = i + 1 To 500
If Sheets("Ausgabe").Cells(xx, 6).Value = szCompare Then
Sheets("Ausgabe").Cells(xx, 6).Font.ColorIndex = 3
Sheets("Ausgabe").Cells(i, 6).Font.ColorIndex = 3
End If
Next xx
Next i
End SubFehler: Keine Veränderung sichtbar
Lösung: Stelle sicher, dass die Zellen, die du markierst, die gleichen Werte haben (z.B. keine zusätzlichen Leerzeichen).
Fehler: VBA-Code funktioniert nicht
Lösung: Überprüfe, ob du den richtigen Arbeitsblattnamen im Code verwendest (z.B. "Ausgabe").
Fehler: Bedingte Formatierung nicht anwendbar
Lösung: Stelle sicher, dass du den richtigen Bereich ausgewählt hast und die Formel korrekt eingegeben wurde.
Neben der bedingten Formatierung und dem VBA-Code gibt es auch andere Methoden, um Zellen mit gleichem Inhalt zu markieren:
Hier sind einige praktische Beispiele, die dir helfen können:
Beispiel 1: Wenn du in den Zellen F5:F10 die Werte 1, 2, 2, 3, 4, 4, 4 hast, werden die Zellen mit den Werten 2 und 4 rot markiert.
Beispiel 2: Du kannst auch ganze Zeilen farblich markieren, indem du die bedingte Formatierung auf die gesamte Zeile anwendest. Verwende dazu die Formel:
=ZÄHLENWENN($F$5:$F$500;F5)>1
und wähle den gesamten Zeilenbereich aus.
STRG + A, um schnell einen gesamten Bereich auszuwählen.1. Wie kann ich alle Zellen mit gleichem Inhalt markieren?
Du kannst entweder die bedingte Formatierung oder ein VBA-Makro verwenden, um Zellen mit gleichem Inhalt farblich zu markieren.
2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten Excel-Versionen, einschließlich Excel 2010 und höher.
3. Kann ich die Hintergrundfarbe ändern?
Ja, in der bedingten Formatierung kannst du die Hintergrundfarbe anpassen, indem du die Formatierungsoptionen auswählst.