Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Teile eines Textes in einer Formel farbig

Teile eines Textes in einer Formel farbig
03.04.2007 15:05:00
Joachim
Hallo,
der Betreff klingt vielleicht etwas komisch, aber ich will folgendes:
In einer WENN-Formel steht:
=WENN(A1="niedrig";"x x x";"y y y")
Nun soll das mittlere x bzw. das linke y in rot geschrieben sein, der Rest in schwarz.
Steht x x x in einer Zelle, kann man die Buchstaben getrennt farbig formatieren.
Nur anscheinend innerhalb einer Formel nicht, oder?
Gruss
Joachim

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teile eines Textes in einer Formel farbig
03.04.2007 15:22:00
Andi
Hi,
Nur anscheinend innerhalb einer Formel nicht, oder?
Richtig; Formate können nur manuell oder mit VBA festgelegt werden, nicht per Formel.
Schönen Gruß,
Andi
AW: Teile eines Textes in einer Formel farbig
03.04.2007 15:53:21
Joachim
Und wie mach ich das in VBA?
Range("B1")= "x" & rotes "x" & "x"
AW: Teile eines Textes in einer Formel farbig
03.04.2007 15:57:21
Detlef
Hi,
formatier das x per Hand und lass den Makrorekorder dabei aufzeichnen.
mfg Detlef
AW: Teile eines Textes in einer Formel farbig
03.04.2007 16:02:37
Andi
Hi,
prinzipiell ist das immer ein guter Rat; in diesem Fall aber zeichnet der Rekorder folgendes auf. Das is zwar nicht verkehrt, aber von den 39 Zeilen sind halt mal 37 irrelevant:
Range("B2").Select
ActiveCell.FormulaR1C1 = "xxx"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
With ActiveCell.Characters(Start:=3, Length:=1).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("B3").Select
Schönen Gruß,
Andi
Anzeige
AW: Teile eines Textes in einer Formel farbig
03.04.2007 15:59:00
Andi
Hi,
zB so:

Sub t()
With Range("B1")
.Value = "xxx"
.Characters(Start:=2, Length:=1).Font.ColorIndex = 3
End With
End Sub
Für die Start- und Lenght-Werte kannst Du auch Variable verwenden.
Schönen Gruß,
Andi
AW: Teile eines Textes in einer Formel farbig
03.04.2007 16:08:00
mpb
Hallo Andi,
das funktioniert aber nicht, wenn in B1 eine Formel steht, die (ggf.) xxx als Ergebnis zurückgibt, und das war ja die ursprüngliche Fragestellung. Entweder wird der Inhalt der Zelle mit dem Wert "xxx" überschrieben oder, wenn diese Codezeile gelöscht wird, funktioniert die Formatierung nicht.
Gruß
Martin
Anzeige
AW: Teile eines Textes in einer Formel farbig
03.04.2007 16:12:28
Andi
Hi,
hast völlig recht, ich war gedanklich schon soweit, die Aufgabe komplett per VBA zu lösen, was meiner persönlichen Neigung ohnehin deutlich näher kommt... ;-)
Schönen Gruß,
Andi
AW: Teile eines Textes in einer Formel farbig
03.04.2007 16:11:19
Joachim
Hallo Andi
vielen Dank!
Mit Range.Characters..... klappt's
Gruss
Joachim

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige