Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

verschachtelte bedingte formatierung

verschachtelte bedingte formatierung
12.01.2015 14:21:09
groggy

An folgender Aufgabe beisse ich mir die Zähne aus:
In einer Drop Down Liste befinden sich vier Parameter ABCD, die jeweils in drei unterschiedlichen Farben (Nebenparameter) Rot, Gelb und Gruen gezeigt werden sollen.
Meine Liste habe ich wie folgt definiert:
Ag für A mit grünem Hintergrund
Ay für A mit gelben Hintergrund
usw.
Der Benuter der Tabelle kann aus dieser Drop Down liste die vordefinierten Werte aussuchen (Ag .. bis Dr), soll jedoch nach der Auswahl nur den Haupt Parameter mit dem entsprechenden Hintergrund sehen.
Was ich bereits versucht habe ist, dass ich in meiner Liste die einzelnen Element bedingt formatiert habe (also den Hintergrung bekomme ich hin) und dann anschliessend manuell, den zweiten Buchstaben in der passenden Hintergrundfarbe eingefärbt habe, so nach dem Motto gelber Buchstabe auf gelben Hintergrund = unsichtbar) -diese Formatierung wird jedoch mit dem Paint Brush nicht mit übernommen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verschachtelte bedingte formatierung
12.01.2015 15:04:21
Arthur
Hallo Groggy.
Das wird leider nicht funktionieren. In den Excelzellen steht unformatierter Text. Die Formatierung wird an anderer Stelle gespeichert. Eine Formatierung mittels Steuerzeichen ist nicht gegeben. Der Pinsel nimmt daher nur die erste Formatierung mit.
Gruß, Arthur.

AW: verschachtelte bedingte formatierung
12.01.2015 15:15:52
Rudi Maintaire
Hallo,
per VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lColor As Long
If Target.Address = "$A$2" Then
If Target = "" Then
lColor = xlNone
Else
Select Case Right(Target, 1)
Case "r"
lColor = vbRed
Case "y"
lColor = vbYellow
Case "g"
lColor = vbGreen
End Select
End If
Target.Interior.Color = lColor
Target.Characters(2, 1).Font.Color = lColor
End If
End Sub
Gruß
Rudi

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige