Schriftfarbe ändern per VBA
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 schreiben
Antwort 1 von Saarbauer vom 19.10.2019, 14:32 Options
Hallo,
geht z.B. mit
ActiveCell.Font.ColorIndex = 3
Wobei z.B. 3 rot ist
Gruß
Helmut
Antwort 2 von bokap1975 vom 19.10.2019, 14:52 Options
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 vom 19.10.2019, 20:12 Options
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
[b]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[/b]
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 vom 22.10.2019, 07:52 Options
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 vom 22.10.2019, 07:56 Options
Hi Oliver,
ich nochmal. Habs selbst raus bekommen wie es geht. Vielen dank für deine Hilfe. Schöne Woche.
Grüße Boris