Office: Text einfärben....

Hallo miteinander,

Mein Problem ist folgendes,

ich habe eine Spalte(Spalte E) mit Gültigkeitsprüfung wo der User 4 Kürzel auswählen kann. wenn er einen bestimmtes Kürzel ausgewählt hat , soll der dazugehörige Name (in Spalte A) die Farbe annehmen wie sie in Spalte F angezeigt wird

* Zur Tabelle *
Der User wird nur die Spalten A,B,E bearbeiten dürfen.
Für Office-Hilfe.com ist die Tabelle nicht geschützt, beim User wird diese Tabelle nachher einen Blattschutz bekommen.

 

Hallo!

Das kannst du mit der bedingten Formatierung machen (Menü Format).
Hier kannst du bis zu drei Bedingungen angeben. Die vierte Farbe entsteht dann durch die Standard-Farbe, also:
- die Zellen markieren und "rot" als Standard-Schriftfarbe festlegen
- die drei restlichen Farben über die bedingte Formatierung:
Zellwert ist gleich LA --> blau
Zellwert ist gleich PR --> grün
Zellwert ist gleich FJ --> orange

Dadurch kannst du dir die Hilfsspalte auch noch sparen.

 

danke schatzi das problem ist aber das User die keinen besonderen "status" haben schwarz geschrieben werden sollen ..

sorry hätte ich vorher schon erwähnen sollen

 

Hallo!

Dann kommst du wohl um VBA (oder Excel2007) nicht herum...
Kopiere diesen Code ins Modul des Tabellenblatts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("E3:E27"), Target) Is Nothing Then Exit Sub
Select Case Target
Case "TS"
Target.Font.ColorIndex = 3
Case "LA"
Target.Font.ColorIndex = 5
Case "PR"
Target.Font.ColorIndex = 4
Case "FJ"
Target.Font.ColorIndex = 46
Case Else
Target.Font.ColorIndex = 1
End Select
End Sub

 

danke schatzi für den code:
er funktioniert einwandfrei,

aber

das kürzel soll normal bleine , nur der name soll sich ändern...(die farbe)

 

Ooops!

Wer lesen kann, ist klar im Vorteil...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("E3:E27"), Target) Is Nothing Then Exit Sub
Select Case Target
Case "TS"
Target.Offset(0, -4).Font.ColorIndex = 3
Case "LA"
Target.Offset(0, -4).Font.ColorIndex = 5
Case "PR"
Target.Offset(0, -4).Font.ColorIndex = 4
Case "FJ"
Target.Offset(0, -4).Font.ColorIndex = 46
Case Else
Target.Offset(0, -4).Font.ColorIndex = 1
End Select
End Sub

 

danke geht.

habe es jetzt auf emine orginal tabelle angepasst

mfg Schnake