| A | |
| 1 | 1 |
| 2 | 2 |
| 3 | 3 |
| 4 | 4 |
| 5 | 2 |
| 6 | 3 |
| 7 | 4 |
| 8 | 5 |
| 9 | 1 |
| 10 | 2 |
| 11 | 6 |
| 12 | 3 |
| 13 | 2 |
| 14 | 5 |
| Bedingte Formatierungen der Tabelle | ||||||
|
Um in Excel dreifache Werte zu markieren, kannst du die bedingte Formatierung verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Start > Bedingte Formatierung > Neue Regel.=ZÄHLENWENN($A$1:$A$14;A1)>2(Passe den Zellbereich entsprechend deiner Daten an.)
Diese Methode ist einfach und erfordert kein VBA, um dreifache Werte zu markieren.
Start > Bedingte Formatierung > Regeln verwalten überprüfen.Falls du dennoch VBA verwenden möchtest, gibt es eine einfache Möglichkeit. Hier ist ein Beispielcode:
Sub Faerben()
Dim lngZeile As Long
For lngZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If Cells(lngZeile, 1) <> "" Then
If Application.CountIf(Columns(1), Cells(lngZeile, 1)) >= 3 Then
Cells(lngZeile, 1).Interior.ColorIndex = 3 ' Färbt die Zelle rot
End If
End If
Next lngZeile
End SubDu kannst diesen Code in das VBA-Editor-Fenster einfügen, um dreifache Werte zu markieren.
Nehmen wir an, du hast folgende Werte in Spalte A:
1
2
2
3
3
3
4
5
5
5
6Mit der oben genannten bedingten Formatierung oder dem VBA-Code werden die Zahlen „2“ und „3“ rot gefärbt, da sie dreifach vorkommen.
1. Ist die bedingte Formatierung in allen Excel-Versionen verfügbar?
Ja, die bedingte Formatierung ist in den meisten modernen Excel-Versionen verfügbar.
2. Kann ich auch mehr als drei Vorkommen markieren?
Ja, passe einfach die Formel in der bedingten Formatierung oder im VBA-Code an, um die gewünschte Anzahl der Vorkommen zu ändern.