☰

Wenn ich die Buchstaben TL in Zelle A8 eingebe, gibt es eine Möglichkeit, diese Zelle und mehrere andere in dieser Zeile blau zu färben?

tag-icon • tag-icon microsoft-excel microsoft-excel-2013
Wenn ich die Buchstaben TL in Zelle A8 eingebe, gibt es eine Möglichkeit, diese Zelle und mehrere andere in dieser Zeile blau zu färben?

Wenn ich die Buchstaben TL in Zelle A8 eingebe, gibt es dann eine Möglichkeit, diese Zelle und mehrere andere in dieser Zeile blau zu färben? Gibt es eine Möglichkeit, mehrere Buchstaben-/Farbvarianten zu erhalten?

Ich habe 8 Zwei-Buchstaben-Kombinationen, die 8 Farben entsprechen. Beispiel: TS=Hellblau TC=Mittelblau TL=Dunkelblau DD=Schwarz RS=Hellgrün RC=Mittelgrün RL=Dunkelgrün LT=Braun Ich möchte eine dieser Buchstabenkombinationen in M8 eingeben und die Spalten B, C, E, F, K-AM in Zeile 8 in die entsprechende Farbe ändern lassen. Gibt es eine Möglichkeit, das zu tun?

Antwort1

Wenn ich die Buchstaben TL in ZelleA8... geben Sie eine dieser Buchstabenkombinationen ein inM8& habe die Spalten B, C, E, F, K-AM in Zeile 8 ...

Ihre Erzählung ist verwirrend. Dieser Code ist für M8.

Passen Sie den Arbeitsblattnamen und die RGB-Parameter für die gewünschten Farben an und führen Sie dann diesen Code aus.

Option Explicit

Sub addCFRs()

    Dim i As Long, rng As Range, arr1 As Variant, arr2 As Variant

    arr1 = Array("TS", "TC", "TL", "DD", "RS", "RC", "RL", "LT")
    arr2 = Array(RGB(0, 0, 255), RGB(0, 0, 128), RGB(0, 0, 64), RGB(0, 0, 0), _
                 RGB(0, 255, 0), RGB(0, 128, 0), RGB(0, 64, 0), RGB(0, 0, 0))

    With Worksheets("sheet6")

        Set rng = Intersect(.Range("B:C, E:F, K:AM"), .Range("8:8"))

        With rng

            .FormatConditions.Delete

            For i = LBound(arr1) To UBound(arr1)

                .FormatConditions.Add Type:=xlExpression, Formula1:="=$M8=" & Chr(34) & arr1(i) & Chr(34)
                .FormatConditions(.FormatConditions.Count).Interior.Color = arr2(i)

            Next i

        End With

    End With

End Sub

Die meisten RGBs kommen Ihren Wünschen einigermaßen nahe, mit Ausnahme von Braun. Ich habe keine Ahnung, welches RGB Braun ausmacht.

Antwort2

Dies lässt sich mit Hilfe der bedingten Formatierung erreichen.
Für jede Farbe wird eine eigene Formel benötigt.

  • Markieren Sie in Zeile 8 die Zellen, deren Farbe Sie ändern möchten (Sie können mit Ctrl+Klick einzelne Zellen auswählen)
  • Gehen Sie zu „Bedingte Formatierung“ und wählen Sie „Neue Regel“
  • Wählen Sie „Formel verwenden, um zu bestimmen, welche Zellen formatiert werden sollen“
  • Geben Sie in der Regelbeschreibung=$M8="TL"
  • Klicken Sie auf „Format“ und wählen Sie oben die Registerkarte „Füllen“
  • Wählen Sie die richtige Farbe für den Code
  • Klicken Sie auf „OK“ und dann erneut auf „OK“.
    Damit ist Zeile 8 erledigt.

Wenn Sie mehr Zeilen erstellen möchten, gehen Sie zu „Bedingte Formatierung“ und wählen Sie „Regeln verwalten“ aus.

Wählen Sie das Symbol rechts neben dem Feld „Gilt für“ aus und markieren Sie dann alle Bereiche, deren Farbe Sie ändern möchten. Auch hier können Sie Ctrleinzelne Bereiche auswählen. Sie können ganze Spalten auswählen, wenn Sie möchten, aber dies kann das Blatt verlangsamen.

Sobald Sie dies eingerichtet haben, können Sie den Vorgang für die anderen Farbcodes wiederholen. Ersetzen Sie ihn TLin der Formel einfach durch den Code, den Sie verwenden möchten.

verwandte Informationen