bin nicht fündig gewordrn in Recherche
da sparst du dir einen Haufen Code und ist erst noch schneller.
Bedingte Formatierung aufrufen
"Formel ist" wählen
=ZÄHLENNWENN(D1;A:A)>1
und dann das Format nach unten kopieren soweit nötig.
Das wars.
Wenn du es in VBA machen willst, kommst du nicht um eine nahezu Endlos - Schleife herum:
For i = 1 to Deine_Letzte_Zeile Application.WorksheetsFunction.CountIf(cells(i,1),A:A) > 2 Then
...
Next i
und das ganze natürlich auch für die zweite Spalte.
Gruss Rainer
In beiden Fällen, wird der gefundene Wert rot markiert.
Gruss Rainer
DANKE
gruss
geri
eigentlich brauchst Du in der Formel nur das größer Zeichen in der If-Bedingung durch ein Gleichheitszeichen auszutauschen oder die 1 durch eine 0 ersetzen...
cu
jinx