Ist möchte in einer Spalte alle Werte färben, die mehr als 2-mal vorkommen. Im Forum habe ich Einträge für doppelte und mehr Werte gefunden, nicht aber für dreifach und mehr Werte. Wie ist das per VBA möglich?
Danke und Gruss
Gregor
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 Sub
Du 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
6
Mit 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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen