Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Schriftfarbe ändern

Forumthread: VBA Schriftfarbe ändern

VBA Schriftfarbe ändern
05.06.2018 11:18:18
Willi
Hallo zusammen,
mit folgendem Code wird bei Click auf einen CommanButton eine Farbpallette aufgerufen, der User kann eine Farbe wählen und diese wird in die Variable schriftfarbe gespeichert:
Private Sub CB_Schriftfarbe_Click()
Dim schriftfarbe As Long
Application.Dialogs(xlDialogEditColor).Show (56)
schriftfarbe = ActiveWorkbook.Colors (56)
End Sub
Ich möchte die Schriftfarbe einer Zelle mit genau dieser Farbe versehen.
Bei Cells(1, 1).Font.ColorIndex = schriftfarbe bekomme ich den Fehler Index außerhalb des gültigen Bereichs.
Wie kann ich das hinbekommen?
Gruß,
Willi
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Schriftfarbe ändern
05.06.2018 11:39:18
Werner
Hallo Willi,
nicht ColorIndex
Private Sub CB_Schriftfarbe_Click()
Dim schriftfarbe As Long
Application.Dialogs(xlDialogEditColor).Show (56)
schriftfarbe = ActiveWorkbook.Colors(56)
Cells(1, 1).Font.Color = schriftfarbe
End Sub
Gruß Werner
AW: VBA Schriftfarbe ändern
05.06.2018 11:45:39
Willi
Hallo Werner,
den Fehler hab ich auch grade herausgefunden. Es funktioniert!
Danke!
Gruß,
Willi
Anzeige
Gerne u. Danke für die Rückmeldung
05.06.2018 11:46:34
Werner
AW: VBA Schriftfarbe ändern
05.06.2018 12:15:42
Dieter(Drummer)
Hallo Will,
falls du die Schriftfarbe einer anderen Zelle ("activeCell") ändern möchtest, dann die Zeile ändern:
statt dieser Zeile: 

Cells(1, 1).Font.Color = schriftfarbe

diesen Code: 

ActiveCell.Font.Color = schriftfarbe

Als Schriftfarbe kann natürlich auch eine andere, als im Code definierte, genommen werden.
Gruß, Dieter(Drummer)
Anzeige
Super Tipps
05.06.2018 12:48:25
robert
;

Forumthreads zu verwandten Themen

in Tabellenblättern suchen und Schriftfarbe ändern
ad

Hallo zusammen,
ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
13.08.2009 22:11:33
Thread-ID: 1095796
11 Beiträge
in Liste v.Blättern suchen und Schriftfarbe ändern
ad

Im Blatt Personal ist eine Liste der Namen=Tabellenblätter (ist flexibel), diese werden neu angelegt mit einer Vorlage in der nur der Kalender enthalten ist - nach dem Eintragen von diversen Werten (Blatt soll als Bsp) sollte es nach dem einfärben aller BLätter lt. Liste wie im Blatt "soll" aus...
14.08.2009 17:46:35
Thread-ID: 1096054
9 Beiträge
Anzeige
Schriftfarbe in Spreadsheet verändern
Polarfuchs

Hallo Ihr Checker,
wie kann man die Farbe der Schrift in einer Zelle in einem Spreadsheet in einer UserForm verändern. Ich habe es mit
Userform1.SpreadSheet1.ActiveCell.Font.Colour = 5 versucht. Ich bekomme auch keinen Fehler, ABER die Farbe im SpreadSheet der UserForms verändert sich l...
17.08.2009 11:49:40
Thread-ID: 1096382
4 Beiträge
Anzeige
Schriftfarbe ändern
Achim

Ich versuche verzweifelt, eine Formel zu finden, mit der ich verschiedenen Farben darstellen kann.
So soll z.B. einen Zahl 140 aber in rot.
Ich habe das mit einer wenn-funktion probiert, aber das scheint nocht zu funktionierne.
Über einen Tip, wie ich das hinbekommen, wäre ich sehr...
15.09.2009 12:30:17
Thread-ID: 1102927
16 Beiträge
Textfarbe in Kommentar mit VBA ändern? | Herbers Excel-Forum
Kasimir
Hallo Leute,
wie aus der Überschrift ja ersichtlich, möchte ich per VBA Texte in einem Kommentarfeld formatieren. Vorrangig möchte ich die Texte farblich verändern. Leider zeichnet mir der Makrorecorder dies nicht auf. Geht das trotzdem?
Danke und Gruß,
Kasimir
14.01.2010 13:59:43
Thread-ID: 1129913
10 Beiträge
Anzeige
schriftfarbe ändern bei workbook_open()
joerg

Hallo nochmals,
Ich bin inzwischen begeisterter neu-VBA-Nutzer, mit den üblichen kleinen Anfangs-Problemchen... jetzt zB würde ich gern mit folgendem Code beim öffnen des workbooks in allen Blättern den Text in den Spalten A bis S schwarz färben: Private Sub workbook_open() Dim sheet As Ob...
26.01.2010 22:33:25
Thread-ID: 1133243
12 Beiträge
Textfarbe in Enabled=False Textbox ändern | Herbers Excel-Forum
Toni Bischoff
Hallo,
wie kann ich in einer für die Eingabe gesperte Textbox die Textfarbe ändern?
Das funktioniert leider auch nicht:
AB_BOX.Enabled = True
AB_BOX.ForeColor = &HFF0000 'neue Textfarbe
AB_BOX.Enabled = False
Hat jemand eine Idee?
Gruß
Toni
28.01.2010 14:07:38
Thread-ID: 1133758
6 Beiträge
Anzeige
Bed.Formatierung Schriftfarbe ändern
Karl

Hallo!
bitte um Hilfe für einen auf Excel2007 Umsteiger! Bin leider hier nicht fündig geworden.
Ich möchte mit Hilfe "Bedingter Formatierung" die Schriftfarbe ändern.
In Spalte A befinden sich die zu bezahlenden offenen Beträge in ROT.
In Spalte B wird bei "Bezahlung" das Datum...
14.05.2010 18:13:18
Thread-ID: 1157076
3 Beiträge
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
fast schon OT: Farbe bei Outlooktermin ändern
mtremer

Moin,
bitte nicht gleich hauen.
Das ist eine Frage, die sich auf einen in einer Exceldatei in Gang gesetzter Code bezieht, mit dem ein Termin in Outlook generiert wird. Ich hoffe, Ihr könnt mir trotzdem helfen.
Dieser Code wird mit einem CommanButton in Excel angesteuert:
Range(...
19.11.2010 15:32:14
Thread-ID: 1187814
10 Beiträge
Farbe in WENN-Formel ändern
Tom

Hallo, ich möchte gerne in der Formel
=WENN(ZÄHLENWENN(D19:K19;N19)=0;"kein Angebot!";INDEX(D$4:K$4;VERGLEICH(N19;D19:K19;)))
den Ausgabetext "kein Angebot!" in rot ausgeben, wie kann ich das machen?
16.06.2011 13:01:55
Thread-ID: 1218578
5 Beiträge
Registerfarbe besdingt durch Zelleneingabe ändern
Lars

Hallo zusammen,
ich habe mal wieder ein Frage, wie lautet der VBA_Code wenn ich abhängig vom Text in einer Zelle abhängig die Registerfarbe ändern möchte.
In Zelle K14 kann per drop-down verschiedene Auswahlmöglichkeiten getroffen werden, entsprechend der Auswahl soll sich die Registerb...
12.10.2011 15:57:41
Thread-ID: 1233555
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA Schriftfarbe ändern in Excel

Schritt-für-Schritt-Anleitung

Um die Schriftfarbe in Excel mithilfe von VBA zu ändern, kannst du den folgenden Schritten folgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul über Einfügen > Modul.

  3. Füge den folgenden Code ein, um eine Farbauswahl zu ermöglichen und die Schriftfarbe einer bestimmten Zelle zu ändern:

    Private Sub CB_Schriftfarbe_Click()
   Dim schriftfarbe As Long
   Application.Dialogs(xlDialogEditColor).Show (56)
   schriftfarbe = ActiveWorkbook.Colors(56)
   Cells(1, 1).Font.Color = schriftfarbe ' Ändert die Schriftfarbe der Zelle A1
End Sub

  4. Um die Schriftfarbe der aktuell ausgewählten Zelle zu ändern, kannst du den Code wie folgt anpassen:

    ActiveCell.Font.Color = schriftfarbe ' Ändert die Schriftfarbe der aktiven Zelle

  5. Speichere dein Projekt und schließe den VBA-Editor.

Häufige Fehler und Lösungen

  • Fehler: "Index außerhalb des gültigen Bereichs"

    • Ursache: Du hast ColorIndex anstelle von Color verwendet.
    • Lösung: Nutze Cells(1, 1).Font.Color = schriftfarbe anstelle von ColorIndex.

  • Funktioniert nicht bei Änderungen der aktiven Zelle

    • Wenn du die Schriftfarbe einer anderen Zelle ändern möchtest, stelle sicher, dass du ActiveCell oder die spezifische Zelle angibst.

Alternative Methoden

Falls du den VBA-Code nicht verwenden möchtest, kannst du die Schriftfarbe auch manuell ändern:

  1. Markiere die Zelle, deren Schriftfarbe du ändern möchtest.
  2. Gehe zur Registerkarte Start.
  3. Klicke auf das Symbol für die Schriftfarbe und wähle die gewünschte Farbe aus.

Praktische Beispiele

  • Schriftfarbe auf Rot setzen:

    Cells(1, 1).Font.Color = RGB(255, 0, 0) ' Setzt die Schriftfarbe auf rot

  • Schriftfarbe ändern basierend auf einer Bedingung:

    If Cells(1, 1).Value > 100 Then
   Cells(1, 1).Font.Color = RGB(0, 255, 0) ' Grün für Werte über 100
Else
   Cells(1, 1).Font.Color = RGB(255, 0, 0) ' Rot für Werte 100 oder weniger
End If

Tipps für Profis

  • Nutze RGB-Werte, um spezifische Farben zu setzen, anstatt nur die vordefinierten Farbnamen zu verwenden.
  • Experimentiere mit der ColorIndex-Eigenschaft, um auf die Farbpalette von Excel zuzugreifen.
  • Du kannst auch die Schriftfarbe in HTML ändern, indem du die entsprechenden RGB-Werte in den HTML-Code einfügst.

FAQ: Häufige Fragen

1. Wie kann ich die Schriftfarbe für mehrere Zellen gleichzeitig ändern?
Du kannst eine Schleife verwenden, um die Schriftfarbe für eine Reihe von Zellen zu ändern:

Dim i As Integer
For i = 1 To 10
    Cells(i, 1).Font.Color = RGB(0, 0, 255) ' Setzt die Schriftfarbe auf Blau für die Zellen A1 bis A10
Next i

2. Kann ich die Schriftfarbe basierend auf dem Zellinhalt ändern?
Ja, du kannst Bedingungen verwenden, um die Schriftfarbe dynamisch zu ändern, wie im Beispiel im Abschnitt "Praktische Beispiele" gezeigt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige