Tabellenkalkulation

Schriftfarbe ändern per VBA

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo zusammen, ich bräuchte in meiner Tabelle verschiedene Schriftfarben. Und zwar: Wenn das Feld G2 = M ist sollte der Gesamte Text im Bereich G1:L30 rot erscheinen Wenn das Feld G2 = F oder K ist sollte der Text grün sein Wenn das Feld G2= E ist sollte der Text schwarz sein. Kann mir da jemand helfen. Wäre super Viele Grüße Boris

Antwort 1 von Saarbauer

Hallo,

geht z.B. mit

ActiveCell.Font.ColorIndex = 3

Wobei z.B. 3 rot ist

Gruß

Helmut

Antwort 2 von bokap1975

Hi Helmut,

bin nicht so fit. Kannst Du dass ein wenig ausführlicher schreiben. Vielleicht ein kleines Beispiel.

Viele Grüße
Boris

Antwort 3 von coros

Hallo Boris,

das kann man z.B. mit nachfolgendem Makro realisieren.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche

Option Explicit

Sub Farbänderung()
If Range("G2") = "M" Then Range("G1:L30").Font.ColorIndex = 3
If Range("G2") = "F" Or Range("G2") = "K" Then Range("G1:L30").Font.ColorIndex = 10
If Range("G2") = "E" Then Range("G1:L30").Font.ColorIndex = 1
End Sub

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 4 von bokap1975

Hi Oliver,

das funktioniert sehr gut.

Ist es vielleicht auch möglich das Makro einfach bei veränderung des Feldes G2 zu starten. (Sub change)??? oder sowas.
Dann könnte ich das mit der Schaltfläche weglassen und die Felder würden dann beim entsprechenden Buchstaben sich automatisch formatieren.

Viele Grüße
boris

Antwort 5 von bokap1975

Hi Oliver,

ich nochmal. Habs selbst raus bekommen wie es geht. Vielen dank für deine Hilfe. Schöne Woche.

Grüße Boris