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
Anzeige
Inhaltsverzeichnis

VBA Schriftfarbe ändern

Forumthread: VBA Schriftfarbe ändern

VBA Schriftfarbe ändern
05.06.2018 13: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 13: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 13: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 13:46:34
Werner
AW: VBA Schriftfarbe ändern
05.06.2018 14: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 14:48:25
robert

Forumthreads zu verwandten Themen

Thin Client und VBA
Lukas
Hallo
Kann mir jemand sagen ob bei einer Umstellung auf ein Thin Client System mit Problemen zu rechnen ist. ich meinen Excel Makros. Ich mein jetzt nicht das wenn in einem Makro ein Pfad auf die Festplatte angegeben ist das man den ändern muss ist mir schon klar. Würde bspw. solche Sub's Lau...
07.03.2017 22:27:19
Thread-ID: 1546061
10 Beiträge
Anzeige
Schrift bei Klick in Zelle ändern
Tim

Hallo,
ich möchte gerne beim Klick auf eine Zelle (Bereich D10:D100) prüfen, ob der jeweilige Text durchgestrichen ist oder nicht und ihn entsprechend ändern.
Da ich VBA-Anfänger bin, habe ich mir mit einer Hilfsspalte beholfen, die entweder "Hide" (Text durchgestrichen) oder "Show" (...
19.10.2015 17:38:07
Thread-ID: 1453137
6 Beiträge
Intersect Problem bei Spielfeld
Shazam

Hey,
ich bin gerade dabei ein Spielfeld für ein Quiz mit Excel zu schreiben, bin auch fast fertig, nur hakt es an einer Stelle und ich komme mit meinen eher mäßigen VBA-Kenntnissen nicht weiter. Und Auch die Suche im Internet konnte mir erstmal nicht weiterhelfen.
(ich weiß nicht wie ic...
26.03.2018 20:40:15
Thread-ID: 1616473
8 Beiträge
Suchen Zeilenweise!
markus

Hallo zusammen,
ich habe folgendes Problem. Das nachfolgende Programm durchsucht einen Bereich nach der Schriftfarbe Rot und zählt alle Zellen, welche eine Rote Schriftfarbe haben und nicht doppelt sind.
Nun bräuchte ich folgende Änderung. Ich möchte nur die doppelten Zellen in einer Z...
11.04.2005 16:44:49
Thread-ID: 597285
1 Beitrag
Excel97 -> 2000 Selection.Font.Colorindex
Günter aus DO
HAllo,folgendes Problem , mein Excel97 programm bricht unter Excel2000 ab, mit LAufzeitfehler 1004
ColorIndex Eigenschaft kann nicht festgelegt werden.
Im Programm ändere ich die Schriftfarbe mit folgenden Befehlen :
Cells(7, 39).Select
With Selection.Font
.ColorIndex = 11...
14.05.2003 14:53:23
Thread-ID: 256265
3 Beiträge
VBA Schriftfarbe ändern
Juls

Hallo zusammen,
ich habe eine Tabelle mit Daten in den Spalten A bis P. Wenn in Spalte A ein Y steht soll die komplette Zeile in der es steht von A bis P eine rote Schriftfarbe erhalten und durchgestrichen werden. Bei meinen Versuchen habe Ich es nicht geschafft, die Zellformatierung auf g...
10.11.2020 10:13:27
Thread-ID: 1792218
2 Beiträge
Spreadsheet-Eigenschaften?!
Andre
Guten Morgen,
kann mir jemand sagen, wie ich per VBA die Schriftfarbe eines Spreadsheets auf einer Userform ändern kann?
So ungefähr: "Spreadsheet1.ActiveSheet.Font.ColorIndex = 15" oder ähnliches!
Muß doch irgendwie über die Eigenschaften gehen, aber ich komme nicht an die entsprechend...
28.02.2004 12:31:53
Thread-ID: 390222
3 Beiträge
Schriftfont und Farbe ändern
Wolfgang

Hallo,
ich würde mich freuen, wenn jemand zu folgendem Problem eine Lösung hat:
ich möchte in einer Excel-Tabelle in einer kompletten Zeile die Schriftfarbe und den Schrifttyp ( Schrift soll dann durchgestrichen sein ) ändern, wenn in der Spalte "H" der Buchstabe "x" eingetragen ist.
03.04.2016 15:41:18
Thread-ID: 1485646
3 Beiträge
Farbige Schrift je nach User
insai

Hallo Leute,
ich bastle zur Zeit an einer VBA-Lösung die mir je nach angemeldetem User an der Domäne die Schriftfarbe in eimem Excelshett ändern soll.
Bei der Userbestimmung (es soll der angemeldete User an der Domäne sein, (VBA.Environ("username")), nicht der der im Word unter Einstell...
20.04.2009 11:02:59
Thread-ID: 1069719
2 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.

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum