bedingte Formatierung über eine Legende

21.09.2025 19:12:03

Thomas

Hallo zusammen,
gibt es eine Möglichkeit, dass man eine bedingte Formatierung über eine Legende erledigen kann.
Natürlich kann ich 35 Bedingte Formatierung einfügen. z.B. wenn das Wort " Nagel" kommt , dann gelb usw...
Aber bei 35 Legenden wird das schon mühsam.
Details zur Liste:
In der Spalte A sind die Legenden hinterlegt. In Spalte AH stehen die Warengruppen, aber es soll dann die Zahlen Spalte AI farbig werden.

Kann mir jemand helfen, bzw. würde sowas gehen ?

Danke an ALLE :-)

https://www.herber.de/bbs/user/178945.xlsx

AW: bedingte Formatierung über eine Legende

22.09.2025 10:05:26

Beverly

Hi Thomas,

das geht nur mit VBA, nicht jedoch mit "normaler" bedingter Formatierung. Dazu folgenden Code ins Codemodul des Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngFarbe As Range

    If targe.Count = 1 Then

        If Target.Column = 35 Then

            Set rngFarbe = Columns(23).Find(Target.Offset(0, -1), lookat:=xlWhole)

            If Not rngFarbe Is Nothing Then

                Application.EnableEvents = False

                Target.Interior.Color = rngFarbe.Interior.Color

                Application.EnableEvents = True

            End If

        End If

    End If

End Sub

Nicht vergessen, die Arbeitsmappe als xlsm abzuspeichern.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: bedingte Formatierung über eine Legende | Möglichkeit

23.09.2025 12:58:25

Wolfgang

Hallo Thomas,
aus Deiner Anfrage könnte auch meine Beispieldatei helfen ? https://www.herber.de/bbs/user/178948.xlsb
Dazu ist zwar ein bischen VBA-Wissen erforderlich, aber mit dem Code kann man "spielen".
Es geht darum, dass beim Anklicken und danach Doppelklicken eine Formatierung "passiert", das muss man alles händisch vorgeben, dann funktioniert es auch (siehe Beispieldatei)
Für 35 "Legenden" ist das schon ein Ding
Man müsste jedenfalls die Farbtabelle von Excel und dem entsprechenden Code kennen und die Icons (in der Beispiel-Datei) muss man ebenfalls ändern.
Wäre Arbeit, aber vielleicht lohnt es sich . . . . muss nur einmal gemacht werden, wenn es auf die Arbeitsmappe gelten soll oder nur für die einzelne Tabelle ?

Das war mal für mich ein große Hilfe.

Vielleicht hilft es, zumindest als Probe

Grüße
Wolfgang

AW: bedingte Formatierung über eine Legende | Möglichkeit

23.09.2025 13:38:17

daniel

Hi

damit neue Werte in der Spalte AH bei Eingabe die richtige Farbe bekommen, muss folgender Code ins Modul der Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ZelleX As Range

Dim ZelleF As Range



If Not Intersect(Target, Range("AH:AH")) Is Nothing Then

    For Each ZelleX In Intersect(Target, Range("AH:AH"))

        If ZelleX.Value = "" Then

            ZelleX.Offset(0, 1).Interior.Color = xlNone

        Else

            Set ZelleF = Columns(1).Find(what:=ZelleX.Value, lookat:=xlWhole, LookIn:=xlValues)

            If Not ZelleF Is Nothing Then ZelleX.Offset(0, 1).Interior.Color = ZelleF.Interior.Color

        End If

    Next

End If

End Sub

für eine einmaliger Bearbeitung vorhandener Werte oder wenn du die Farbzuordnung in der Legende nachträglich geändert hast, müsstest du dann diesen Code einmalig laufen lassen:

Sub FarbenAnpassen()

Dim ZelleX As Range

Dim ZelleF As Range



For Each ZelleX In Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("AH:AH"))

    If ZelleX.Value = "" Then

        ZelleX.Offset(0, 1).Interior.Color = xlNone

    Else

        Set ZelleF = Range("W:W").Find(what:=ZelleX.Value, lookat:=xlWhole, LookIn:=xlValues)

        If Not ZelleF Is Nothing Then ZelleX.Offset(0, 1).Interior.Color = ZelleF.Interior.Color

    End If

Next

  

End Sub

Gruß Daniel

bedingte Formatierung über eine Legende

Forumthread: bedingte Formatierung über eine Legende

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

bedingte Formatierung über eine Legende

Forumthread: bedingte Formatierung über eine Legende

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread