Text einfärben.... :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Text einfärben....

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 27.01.2008, 18:50

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.

Problem.xls

Beschreibung:

Ohne Kennwortschutz:

Download

Dateiname:

Problem.xls

Dateigröße:

21 KB

Heruntergeladen:

23 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 27.01.2008, 19:15

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.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 27.01.2008, 19:27

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 27.01.2008, 19:41

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

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 27.01.2008, 19:54

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

aber

Zitat:

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

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 27.01.2008, 20:02

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

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 27.01.2008, 22:08

danke geht.

habe es jetzt auf emine orginal tabelle angepasst

mfg Schnake

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Abstand der Fußnote zum normalen Text	> John 117 <	Microsoft Word Hilfe	0	08.01.2009, 11:22
	Währung mit Text in Zahlen umändern	jars777	Microsoft Excel Hilfe	5	07.01.2009, 23:58
	Text Popup bei aktivieren einer Checkbox	S.Wagner	Microsoft Excel Hilfe	2	12.12.2008, 11:26
	Hilfe Formel für Text	gottschi	Microsoft Excel Hilfe	2	27.11.2008, 19:35
	Spalte überprüfen, bestimmten Text na...	CrazyCat	Microsoft Excel Hilfe	8	27.11.2008, 14:05

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de