Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

verschiedene Schriftfarben in einer Zelle

Forumthread: verschiedene Schriftfarben in einer Zelle

verschiedene Schriftfarben in einer Zelle
01.07.2002 15:17:02
Antje
Hallo,

wie kann ich in einer Zelle mehrere Schriftfarben verwenden?
Und zwar:
Cells(i, 3).Font.ColorIndex = 5
Anzahl = x & "(" & z & ")"
Cells(i, 3).Value = Anzahl
möchte ich z.B. 26(5) "5" in rot und der Rest in blau!
Wie??
und Danke für Rückmeldungen
Gruß
Antje

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 15:22:40
Joachim L.
Hallo Antje,

Hier ein Ansatz. Ich hoffe er hilft Dir.
ActiveCell.Characters(Start:=1, Length:=4).Font.ColorIndex = 3
ActiveCell.Characters(Start:=5, Length:=3).Font.ColorIndex = 5
ActiveCell.Characters(Start:=8, Length:=6).Font.ColorIndex = 10

Gruß Joachim

Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 15:25:32
Hajo_Zi
Hallo Antje

hier mal ein Beispiel für Zelle A1

Gruß Hajo

Anzeige
Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 15:32:42
antje
Danke,

aber geht das nur über die Position der Zeichen?
Kann man das nicht auf die Variablen beziehen?


X=100 z=5 (oder x=10 z=12; die Zahlengrößen ständig verschieden sind)
Schreibe z immer rot?

Danke
Gruß
Antje

Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 15:36:32
Hajo_Zi
Hallo Antje

Deine Frage kam nicht klar rüber

Gruß Hajo

Anzeige
Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 15:46:10
Antje
Hallo Hajo,

nein
x und z sind irgenwelche Variablen mit Inhalten wie 100 oder 10 .. also x-beliebige Zahlen.
Somit weiß´ich nie die genaue Länge z kann einstellig, zweistellig oder auch dreistellig sein!
Kann man nicht einfach sagen
Font.Color.Index für Variable x = 3
FontColor.Index für Variable z =5

Das Ergebnis soll so aussehen: 126(13)' 13 soll rot sein
x z

Ich hoffe ich habe mich jetzt verständlicher ausgedrückt!
und Danke
Gruß
Antje

Anzeige
Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 15:53:20
Hajo_Zi
Hallo Antje

am besten erklär sich das immer am Beispiel, wenn Du aschreibst was Du hast, wie das zusammen gesetzt wird und wie es aussehen soll. Jetzt hier die 3 Variante

Gruß Hajo

Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 16:11:46
Antje
Hallo Hajo ... bitte nicht verwzeifeln!

Also
hier mein Code
Sub offene_Punkte()

Dim Zeilen As Object
Dim tabellenname As String
Dim Anzahl As String
Dim i#, j#, z#

For i = 6 To 17
If (Cells(i, 2) <> "" And Cells(i, 2) <> "...") Then
tabellenname = Cells(i, 2).Value
Worksheets(tabellenname).Activate
Set Zeilen = ActiveCell.CurrentRegion
z = 0
X = Zeilen.Rows.Count
For j = 2 To Zeilen.Rows.Count
If Cells(j, 6) = "" Then
z = z + 1
End If
Next j
Worksheets("menü").Activate
Cells(i, 3).Font.ColorIndex = 5
Anzahl = X - 1 & "(" & z & ")"
Cells(i, 3).Value = Anzahl

End If
Next i

End Sub

Hiermit schreibe ich mir beim Öffenen meiner Tabelle in eine Spalte auf dem ersten Blatt "Menue" immer die X- Anzahl laufender Projekte (tabellenblättern) und dahinter in Klammern die Z-Anzahl der "leeren Zellen" von diesem Tabellenblatt!
Jetzt möchte ich diese Anzahl der "leeren Zellen" auf dem ersten Blatt in rot markieren! Wobei meine Variable (string) Anzahl sich aus X und Z zusammensetzt!
Ich habe es jetzt mit deinem Code ausprobiert, aber es wird immer noch alles in blau geschrieben!

Gruß
Antje

Anzeige
Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 16:21:22
Hajo_Zi
Hallo Antje

das war mir jetzt ein wenig zu mühselig zu testen.

Gruß Hajo

Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 16:35:12
Antje
Hallo Hajo,

es funktioniiiert!!!!
Suupiiii Danke

Gruß
Antje

Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 16:41:02
Martin Beck
Hallo Antje,

hier zunächst der Code für die markierte Zelle:

Gruß
Martin Beck

Anzeige
;

Forumthreads zu verwandten Themen

Darstellung der Schriftfarben stimmen nicht.
Kasimir

Hallo Leute,
ich habe da ein merkwürdiges Problem mit der farblichen Darstellung von Werten. Ich habe eine Datei, in der die Werte in den Schriftfarben blau und rot dargestellt werden. Außerdem sind die Werte als Währung im Format „#.##0,00 €;[Rot]-#.##0,00 €“ formatiert.
Die Datei wird...
11.08.2008 20:29:41
Thread-ID: 1000997
7 Beiträge
Schriftfarben in Zellen
Ulli

Hallo Zusammen,
beim letzen mal wurde mir sehr schnell, sehr kompetent und sehr freundlich geholfen. Dafür möchte ich mich nochmals bedanken.
Hier mein Problem: Ich habe eine Tabelle mit verschiedenen Farben in einer Zelle. Diese Farben entsprechen jedoch nicht den originalen Schriftfar...
19.01.2009 07:57:00
Thread-ID: 1041313
5 Beiträge
Schriftfarbenmakro 1
Ernst

Hallo Vba Experten !
Würde folgendes Makro benötigen.
Im Tabellenblatt1 (Flor-Kag-Brg)In den Zellen A8 bis A105 sowie E8 bis E105 und I8 bis I105 stehen Zahlen Schriftfarbe Rot:
Sobald in der jeweiligen Nachbarzelle ein Eintrag vorhanden ist soll sich die Schriftfarbe in Grün Ändern...
04.06.2009 10:28:09
Thread-ID: 1079068
5 Beiträge
Anzahl der Schriftfarben
Walter

Es ist nicht so wichtig, aber ich habe einen Texteditor,
bei dem ich meine Schriftfarben in RGB-Werten genau festlegen
kann. Excel kennt scheinbar nur seine Einfach-Auswahlbox. Oder
kann ich Schriftfarben präziser festlegen?
17.10.2002 08:59:24
Thread-ID: 170211
3 Beiträge
verschiedene Schriftfarben in einem Label
MikeS

Hallo,ist es möglich mehrere Schriftfarben in einem Label darzustellen?In nachstehender Codezeile weise ich dem Label lblUrlaub den Text Urlaub x und Std.,
als auch dazwischen den Wert einer Variablen UrlaubZeitJeTag zu.frmÜbersicht.lblUrlaub = "Urlaub x " & Format(UrlaubZeitJeTag, "#,##0.00...
20.06.2003 08:25:05
Thread-ID: 271456
8 Beiträge
Anzeige
Schriftfarbenvergleich
M. Schleinitz
Grüezi,
Ich habe das Problem, dass ich entsprechend der sich ändernden Schriftfarbe der einzelnen Zellen in Zeile 1 einige Formelergebnisse in den jeweilig darunterliegenden Bereichen "färben" muss. Also Schriftfarbe A1 = A2:A10, B1 = B2..........
Versuche mit If Then haben mich nicht zu Zie...
14.01.2004 08:31:47
Thread-ID: 363426
7 Beiträge
verschiedene Schriftfarben in einer Zelle von hint
chris13
Hallo!
Ich hab ein Problem:
Ich möchte innerhalb einer Zelle unterschiedliche Schriftfarben für die einzelnen Finktionen, die ich in diese eine Zelle eingetragen lasse. Wenn ich ich aber z.B. 3 Funktionen in eine Zelle eintrage, dann gibt es mit meiner Programmierung Probleme:
Cells(t,...
22.02.2004 22:42:45
Thread-ID: 386967
4 Beiträge
Schriftfarbenwechsel bei unterschiedlichen Werten
Sebastian
Hallo.
Ich erstelle gerade eine Tabelle, die mit verschiedenen Messwerten (Zahlen) gefüllt wird, die entweder positiv (>=0) oder negativ (>0) sind.
Nun würde ich gerne die negative Zahlen automatisch in rot und und die positiven in grün darstellen. Da die Tabelle ständig aktualisiert wird, möc...
02.03.2004 11:24:00
Thread-ID: 391269
3 Beiträge
Standard Schriftfarben / Hintergrund
Bernhard

Hallo !
Wenn ich Excel starte, ist bei mir automatisch "Gelb" als Hintergrundfarbe und "Rot" als Textfarbe.
Das kann man doch sicher ändern, damit die Farben kommen, die ich hier brauche.
Personl. XLS ?
Bitte um Hilfe
Danke
Bernhard
18.11.2004 11:44:20
Thread-ID: 519443
2 Beiträge
Anzeige
Schriftfarben automatisch anpassen?
Werner

Hallo zusammen,
ich möchte erreichen, dass die Schriftfarben in farbigen Zellen immer automatisch so gewählt werden, dass sie lesbar sind. Ideal wäre, wenn die
jeweilige Komplementärfarbe genommen würde.
Ist das irgenwie mit VBA machbar und falls ja, wie?
mfg Werner
01.12.2004 17:18:38
Thread-ID: 526457
3 Beiträge
Anzeige
Filtern nach Schriftfarben (Farbcodes)
Martin

Hallo,
ich habe eine Tabelle mit mehreren Spalten und Zeilen.
Ich möchte nun in einer beliebigen Spalte einen Filter nach
eine bestimmten Schrift-Farbe setzen. Der Filter sollte natürlich auch
wieder Rückgängig gemacht werden können, sodas sämtliche Zeilen wieder
eingeblendet sin...
03.02.2005 16:50:39
Thread-ID: 560709
8 Beiträge
Anzeige
Textbox mit mehreren Schriftfarben
Alex

hi zusammen,
ich muss mit einer textbox unterschiedliche schriftfarben darstellem. z.b. erste zeile rot, zweite zeile grün, dritte zeile rot,...
mit einer normalen textbox geht das nicht, gibt's da vielleicht ein anderes steuerelement? mit der richtextbox aus vb geht's mit excel 2003 le...
27.07.2005 15:25:29
Thread-ID: 643351
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Verschiedene Schriftfarben in einer Zelle

Schritt-für-Schritt-Anleitung

Um in einer Zelle von Excel verschiedene Schriftfarben zu verwenden, kannst Du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es Dir, unterschiedliche Teile des Textes in einer Zelle farblich zu gestalten, abhängig von den Variablen, die Du verwendest.

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

  2. Füge ein neues Modul ein, indem Du mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" klickst und "Einfügen" > "Modul" auswählst.

  3. Kopiere den folgenden Code in das Modul:

    Sub SchriftfarbenInZelle()
    Dim x As Integer
    Dim z As Integer
    Dim Anzahl As String

    ' Beispielwerte
    x = 100
    z = 5

    ' Setze den Wert in die Zelle
    Anzahl = x & "(" & z & ")"
    Cells(1, 1).Value = Anzahl

    ' Färbe Teile des Textes
    With Cells(1, 1)
        .Characters(Start:=InStr(Anzahl, "(") + 1, Length:=Len(z)).Font.ColorIndex = 3 ' Rot für z
        .Characters(Start:=1, Length:=InStr(Anzahl, "(") - 1).Font.ColorIndex = 5 ' Blau für x
    End With
End Sub

  4. Schließe den Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf "Ausführen" klickst.

Häufige Fehler und Lösungen

  • Fehler: Der gesamte Text wird in einer Farbe angezeigt.

    • Lösung: Überprüfe, ob die Start und Length Parameter im Characters-Befehl korrekt gesetzt sind. Diese sollten den genauen Textbereich angeben, den Du färben möchtest.

  • Fehler: Die Schriftfarbe ändert sich nicht.

    • Lösung: Stelle sicher, dass Du beim Ausführen des Makros die Zelle ausgewählt hast, in der Du die Farben ändern möchtest. Auch die ColorIndex-Werte müssen gültig sein (z.B. 3 für Rot, 5 für Blau).

Alternative Methoden

Eine Alternative zum VBA-Code ist die Verwendung von bedingter Formatierung, um den Text je nach Wert in einer Zelle unterschiedlich darzustellen. Diese Methode ist jedoch begrenzt, da sie keine unterschiedlichen Farben für verschiedene Teile eines Textes innerhalb einer Zelle unterstützt.

Praktische Beispiele

Hier sind einige Beispiele, wie Du den obigen Code anpassen kannst:

  1. Zwei Variablen mit unterschiedlichen Farben:

    Dim a As Integer
Dim b As Integer
a = 25
b = 10
Anzahl = a & "(" & b & ")"

' Färbe b in Grün
.Characters(Start:=InStr(Anzahl, "(") + 1, Length:=Len(b)).Font.ColorIndex = 10 ' Grün

  2. Dynamische Werte:

    Stelle sicher, dass Du dynamische Werte aus anderen Zellen einfügen kannst:

    x = Cells(2, 1).Value ' Wert aus Zelle A2
z = Cells(2, 2).Value ' Wert aus Zelle B2

Tipps für Profis

  • Verwende die InStr-Funktion, um die Position der Klammer oder anderer Trennzeichen zu bestimmen, um die Schriftfarbe gezielt ändern zu können.
  • Teste verschiedene ColorIndex-Werte, um eine breitere Palette von Farben zu nutzen.
  • Erstelle eine benutzerdefinierte Funktion, um die Schriftfarben basierend auf spezifischen Bedingungen automatisch zu ändern.

FAQ: Häufige Fragen

1. Kann ich die Schriftarten und -größen ebenfalls anpassen?
Ja, zusätzlich zur Farbe kannst Du auch die Schriftart und -größe mithilfe der .Font-Eigenschaften für die entsprechenden Characters-Bereiche anpassen.

2. Funktioniert dieser Code in allen Excel-Versionen?
Der VBA-Code sollte in den meisten modernen Excel-Versionen (Excel 2007 und später) funktionieren. Achte darauf, dass Du Makros aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige