So ändern sie die schriftfarbe in vba (3 methoden)

Sie können eine der folgenden Methoden verwenden, um die Schriftfarbe in Excel mithilfe von VBA zu ändern:

Methode 1: Schriftfarbe mithilfe von VBA-Farbnamen ändern

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Dieses spezielle Makro ändert die Schriftfarbe in Zelle A1 in Rot.

Methode 2: Schriftfarbe mithilfe von RGB-Werten ändern

 SubChangeColor ()
Range(" A1 ").Font.Color = RGB(255,0,0)
End Sub

Dieses spezielle Makro ändert die Schriftfarbe in Zelle A1 in die Farbe, die den RGB-Werten (Rot, Grün, Blau) von (255,0,0) entspricht, was zufällig Rot ist.

Methode 3: Ändern Sie die Schriftfarbe mithilfe hexadezimaler Farbcodes

 SubChangeColor ()
Range(" A1 ").Font.Color = &H0000FF
End Sub

Dieses spezielle Makro ändert die Schriftfarbe in Zelle A1 in die Farbe, die dem hexadezimalen Farbcode von #FF0000 entspricht.

Hinweis Nr. 1: Sie müssen &H vor dem hexadezimalen Farbcode eingeben, den Sie verwenden möchten, damit VBA ihn als hexadezimalen Farbcode erkennt.

Hinweis Nr. 2: Hexadezimale Farbcodes werden normalerweise durch sechs Zeichen dargestellt, wobei die ersten beiden den Code für Rot, die mittleren beiden den Code für Grün und die letzten beiden den Code für Blau darstellen.

Allerdings vertauscht Excel die ersten beiden Werte mit den letzten beiden Werten. Der hexadezimale Farbcode für Rot lautet also FF0000, Sie sollten jedoch stattdessen 0000FF eingeben.

Die folgenden Beispiele zeigen, wie die einzelnen Methoden in der Praxis angewendet werden.

Beispiel 1: Schriftfarbe mithilfe von VBA-Farbnamen ändern

Nehmen wir an, wir haben Text in Zelle A1 , dessen Schriftfarbe derzeit Schwarz ist:

Wir können das folgende Makro erstellen, um die Schriftfarbe in Zelle A1 in Rot zu ändern:

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass die Schriftfarbe in Zelle A1 jetzt rot ist.

Beispiel 2: Schriftfarbe mithilfe von RGB-Werten ändern

Nehmen wir an, wir haben Textzeichenfolgen im Bereich A1:A5 , deren Schriftfarbe derzeit schwarz ist:

Wir können das folgende Makro erstellen, um die Schriftfarbe in den Zellen A1:A5 in Rot zu ändern:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = RGB(255,0,0)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass die Schriftfarbe in jeder Zelle im Bereich A1:A5 jetzt rot ist.

Beispiel 3: Schriftfarbe mithilfe hexadezimaler Farbcodes ändern

Nehmen wir erneut an, dass wir Textzeichenfolgen im Bereich A1:A5 haben, deren Schriftfarbe derzeit schwarz ist:

Wir können das folgende Makro erstellen, um die Schriftfarbe in den Zellen A1:A5 in Rot zu ändern:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = &H0000FF
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass die Schriftfarbe in jeder Zelle im Bereich A1:A5 jetzt rot ist.

Hinweis : Die vollständige Dokumentation für die VBA-Eigenschaft Font.Color finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So entfernen Sie Leerzeichen aus einer Zeichenfolge
VBA: So ersetzen Sie Zeichen in einer Zeichenfolge
VBA: So fügen Sie eine Zeile mit Formatierung ein