excel beliebigen Text mit Tastenkombi einfärben

Hallo Michael,
<br />poste mal einige Beispiele vom Zelleninhalt und dem einzufärbenden Text.
<br />Claus
<br />

Hallo Michael,
<br />wenn es ein ganz bestimmter Textteil ist, der eingefärbt werden soll, kennst du ja seine Länge. Mit Instr kannst du dann in deinem Code die Startposition feststellen und beide Werte im Code eingeben.
<br />Claus
<br />

Hallo Andreas,
<br />besten Dank, es funktioniert! Wie kann nun noch ein ausgewählter Bereich (innerhalb einer Zelle) gefärbt werden? Ich meine damit nicht mehrere Zellen sondern innerhalb einer Zelle eine Beliebige Anzahl an Buchstaben/Zahlen/Sonderzeichen?
<br />Sub textRotFaerben()
<br />'
<br />' textRotFaerben Makro
<br />'
<br />' Tastenkombination: Strg+r
<br />
<br /> With ActiveCell.Characters(Start:=0, Length:=-199).Font
<br /> .Name = "Calibri"
<br /> .FontStyle = "Standard"
<br /> .Size = 11
<br /> .Strikethrough = False
<br /> .Superscript = False
<br /> .Subscript = False
<br /> .OutlineFont = False
<br /> .Shadow = False
<br /> .Underline = xlUnderlineStyleNone
<br /> .Color = 255
<br /> .TintAndShade = 0
<br /> .ThemeFont = xlThemeFontNone
<br /> End With
<br />
<br />End Sub
<br />

Hallo Claus,
<br />nachfolgend ein Beispiel. Leider können mit dem Makro nur die ganzen Zelleninhalte, nicht aber einzelne Buchstaben innerhalb einer Zelle eingefärbt werden. Wie kann ich einzelne Buchstaben einfärben? Die Anzahl der Buchstaben soll dabei individuell mit dem Curser ausgewählt werden können.
<br />


<br />

Wie kann nun noch ein ausgewählter Bereich (innerhalb einer Zelle) gefärbt werden?

Gar nicht, denn wenn Du eine Zelle editierst, dann kannst Du keine Makros ausführen.
<br />Andreas.
<br />