unterschiedliche Textfarbe in einer Zelle

Forumthread: unterschiedliche Textfarbe in einer Zelle

23.03.2006 09:17:31

Garfield

Hab unter Suche leider nix passendes gefunden und hoffe, das ich mich dabei nicht zu blöd angestellt habe.
Ich möchte aus zwei Zellen den Inhalt in einer dritten zusammensetzen. Die Schriftfarbe soll aber unterschiedliche sein.
Hier die Formel:=WENN($AO5="X";I5&"/"&J5;"")
der Inhalt aus I5 soll grün geschrieben werden, der Querstrich schwarz und der Inhalt aus J5 soll rot geschrieben werden.
Wer kann mir da weiterhelfen ?
Schon mal besten Dank im Voraus
Garfield

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: unterschiedliche Textfarbe in einer Zelle

23.03.2006 09:35:57

ede

hallo
markiere die zellen, welche du formatieren möchtest und lass
dann das makro laufen:


Sub format2Text2()
Dim zelle As Range
Dim pos As Integer
For Each zelle In Selection
pos = InStr(1, zelle.Value, "/")
If pos > 0 Then
zelle.Characters(Start:=1, Length:=pos - 1).Font.ColorIndex = 3
zelle.Characters(Start:=pos, Length:=pos).Font.ColorIndex = 25
zelle.Characters(Start:=pos + 1).Font.ColorIndex = 50
End If
Next zelle
End Sub

gruss
rückmeldung wäre super

AW: unterschiedliche Textfarbe in einer Zelle

23.03.2006 09:46:24

Garfield

hab's ausprobiert, jetzt ist aber alles in rot und nicht, wie gewünscht, rot-schwarz-grün
Garfield

AW: unterschiedliche Textfarbe in einer Zelle

23.03.2006 10:00:27

ede

hallo nochmal,
ja so wie es aussieht geht es nur mit text in der zelle,
habe hier mal deine formel vom verketten durch den wert ersetzt
und dann funkt. mit diesem code!
!!!Achtung, Formeln in der Zelle gehen verloren


Sub format2Text2()
Dim zelle As Range
Dim pos As Integer
For Each zelle In Selection
zelle.Value = zelle.Text 'Formel ersetzen durch Inhalt
pos = InStr(1, zelle.Value, "/")
If pos > 0 Then
zelle.Characters(Start:=1, Length:=pos - 1).Font.ColorIndex = 3
zelle.Characters(Start:=pos, Length:=1).Font.ColorIndex = 25
zelle.Characters(Start:=pos + 1).Font.ColorIndex = 50
End If
Next zelle
End Sub

rückmeldung wäre super
gruss

AW: unterschiedliche Textfarbe in einer Zelle

23.03.2006 11:49:00

Garfield

Ja, jetzt klappt es.
Es ist nur schade, das die enthaltene Formel rauskatapultiert wird.
Wenn ich das Kreuz nämlich wieder rausnehme, bleibt ja der Wert drin stehen, sollte aber eigentlich wieder verschwinden.
Aber trotzdem vielen Dank
Garfield

Infobox / Tutorial

Unterschiedliche Textfarben in einer Zelle in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel unterschiedliche Farben in einer Zelle anzuzeigen, kannst Du die folgende Methode nutzen. Hier ist eine Schritt-für-Schritt-Anleitung:

Zelle vorbereiten: Erstelle eine Zelle, in der Du verschiedene Textelemente mit unterschiedlichen Farben anzeigen möchtest.
Formel nutzen: Verwende die Formel, um die gewünschten Inhalte zu kombinieren. Beispiel:
```
=WENN($AO5="X";I5&"/"&J5;"")
```

Makro erstellen: Öffne den VBA-Editor (Alt + F11) und füge das folgende Makro ein:

Sub format2Text2()
   Dim zelle As Range
   Dim pos As Integer
   For Each zelle In Selection
       zelle.Value = zelle.Text 'Formel ersetzen durch Inhalt
       pos = InStr(1, zelle.Value, "/")
       If pos > 0 Then
           zelle.Characters(Start:=1, Length:=pos - 1).Font.ColorIndex = 3 ' Grün
           zelle.Characters(Start:=pos, Length:=1).Font.ColorIndex = 25 ' Schwarz
           zelle.Characters(Start:=pos + 1).Font.ColorIndex = 50 ' Rot
       End If
   Next zelle
End Sub

Makro ausführen: Markiere die Zelle, die Du formatieren möchtest, und führe das Makro aus.

Häufige Fehler und Lösungen

Problem: Alle Texte sind in einer Farbe.
- Lösung: Stelle sicher, dass Du das Makro wie beschrieben anwendest und dass der Text in der Zelle die erwartete Struktur hat (z.B. "Text1/Text2").
Problem: Formeln gehen verloren.
- Lösung: Das Makro ersetzt die Formel durch den aktuellen Text. Dies ist eine Einschränkung, die berücksichtigt werden muss. Wenn Du die Formel wiederherstellen möchtest, solltest Du die Originaldaten an einem anderen Ort speichern.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, gibt es alternative Methoden, um unterschiedliche Farben in Zellen anzuzeigen:

Bed Conditional Formatting: Du kannst die bedingte Formatierung verwenden, um die Schriftfarbe basierend auf bestimmten Kriterien zu ändern. Diese Methode ist jedoch begrenzt und erlaubt nicht, unterschiedliche Farben innerhalb eines Textstring zu verwenden.

Praktische Beispiele

Hier sind einige Beispiele, wie Du unterschiedliche Textfarben in einer Zelle umsetzen kannst:

Beispiel 1: Du hast in Zelle A1 den Text "Apfel/Banane". Mit dem obigen Makro wird "Apfel" grün, der Schrägstrich schwarz und "Banane" rot.
Beispiel 2: Wenn Du die Werte aus Zelle B1 und C1 kombinierst, wie "Hund/Katze", kannst Du die gleiche Formatierung anwenden.

Tipps für Profis

Makros optimieren: Du kannst das Makro anpassen, um weitere Farben oder Textteile hinzuzufügen.
Schnellzugriff: Füge das Makro zu Deiner Schnellzugriffsleiste hinzu, um es schneller ausführen zu können.
Backups erstellen: Speichere regelmäßig Backups Deiner Arbeitsmappe, insbesondere wenn Du mit Makros arbeitest, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich auch mehrere Trennzeichen verwenden?
Ja, Du kannst das Makro anpassen, um mehrere Trennzeichen zu berücksichtigen. Du müsstest die Logik im Code erweitern.

2. Funktioniert das in allen Excel-Versionen?
Das oben beschriebene Verfahren funktioniert in den meisten modernen Excel-Versionen, die VBA unterstützen, wie z.B. Excel 2016, 2019 und Office 365.

Beliebteste Forumthreads (12 Monate)

unterschiedliche Textfarbe in einer Zelle

Forumthread: unterschiedliche Textfarbe in einer Zelle

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Unterschiedliche Textfarben in einer Zelle in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

unterschiedliche Textfarbe in einer Zelle

Forumthread: unterschiedliche Textfarbe in einer Zelle

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Unterschiedliche Textfarben in einer Zelle in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread