Bedingte Formatierung: Farbe nach Position

Hallo Irena,

lade dir mal hier die Datei herunter (Makros sind in OneDrive deaktiviert):

https://1drv.ms/x/s!AqMiGBK2qniTgeVqGQz1fxAjt_BCkw?e=hIRVnu

In dieser Mappe sind 3 verschiedene Versionen für das Einfärben der Zellen mit "A" eingebaut.

Claus

Hallo Irena,

wenn deine Buchstaben in Spalte A sind, kannst du auch folgendes Makro verwenden (sonst Bezüge anpassen).

Hinterlege im Code so viele Farben wie Vorkommen von "A" in der Spalte möglich (im aktuellen Code sind es 4 Farben) sind und rufe das Makro auf:

Sub Einfaerben()

Dim varFarbe As Variant

Dim rngC As Range

Dim LRow As Long
varFarbe = Array(RGB(255, 255, 0), RGB(0, 176, 80), RGB(255, 0, 0), RGB(48, 84, 150))
With ActiveSheet

    LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For Each rngC In .Range("A1:A" & LRow)

        If rngC = "A" Then

            rngC.Interior.Color = _

                varFarbe(Application.CountIf(.Range("A1:A" & rngC.Row), "A") - 1)

        End If

    Next

End With

End Sub

Claus

Hallo Irena,

dazu müsstet du für jedes Vorkommen von A eine eigene Bedingung aufstellen.

Für das erste Vorkommen wäre das:

=UND(A1="A";ZÄHLENWENN($A$1:A1;"A")=1)

Für jedes weiter Vorkommen müsst du dann die Zahl für ZÄHLENWENN um 1 erhöhen.

Claus

Hola,
die bedingte Formatierung kann sich auf tausende Zellen auf einmal beziehen, wenn man über "Formel zur Ermittlung...." eine derartige Abfrage erstellt.
Allerdings kann die bedingte Formatierung keine Formatierung anderer Zellen auslesen.
Wie werden die Zellen die abgefragt werden sollen mit Farben befüllt? Händisch oder auch per bedingte Formatierung?
Gruß,

ich will nur die Farbe von einer Zelle die über Bedingte Formatierung farbig ist über tragen auf eine die gleiche Zelle in einer anderen Tabelle.

Ja, das kannst Du dann abhaken, eine bedingte Formatierung musst Du neu erstellen.

Und bei bedingter Formatierung kannst Du das Zählen der Farben auch vergessen, das funktioniert nicht.

Ich weiß, im Netz gibt es irgendwo Codes die das machen.... und ganz bestimmten Bedingungen funktioniert das... so leidlich, meistens nicht oder nicht zuverlässig.

Andreas.