Excel: Zellinhalt in anderer Farbe unterstreichen

Computer: Software & Programmierung Office Software
#1

Liebe/-r Experte/-in,

In Word kann ich einen Buchstaben oder auch ein Wort (anders)farbig unterstreichen.
In Excel kann mir das (farbig) nicht gelingen. Wie kann ich das erreichen?
Also z.B. ein Wort in einer Zelle ist in schwarzer Schrift, und ich möchte es rot unterstreichen.
Ein „Workaround“ ist, eine farbige Linie zu zeichnen und diese zur Unterstreichung zu verwenden, das ist aber keine (schöne) Lösung!
Wissen die VBA-Gurus hier vielleicht Rat?

Vielen Dank im Voraus,
liebe Grüße,
Thomas

#2

Hallo Thomas,

leider hast Du nicht geschrieben, welche Excel-Version Du verwendest. Soweit ich weiss, kann das weder Excel 2003 noch eine der Vorgänger-Versionen. Bei Excel 2007 bin ich mir nicht sicher - aber wundern würde mich das schon, da Excel nunmal ein Tabellenkalkulations- und kein Textgestaltungs-Programm
ist :wink:

Gruß aus der Eifel
(Woly)

#3

also, ich hatte keine Probleme damit. Ich habe die Makro-Aufnahme mitlaufen lassen, damit du sehen kannst wie (nachher hatte der Satz „Dies ist ein Satz.“ das Wort „ein“ blau und unterstrichen):

ActiveCell.FormulaR1C1 = „Dies ist ein Satz.“
Range(„B6“).Select
ActiveCell.FormulaR1C1 = „Dies ist ein Satz.“
With ActiveCell.Characters(Start:=1, Length:=9).Font
.Name = „Arial“
.FontStyle = „Standard“
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=10, Length:=3).Font
.Name = „Arial“
.FontStyle = „Standard“
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
End With
With ActiveCell.Characters(Start:=13, Length:=6).Font
.Name = „Arial“
.FontStyle = „Standard“
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range(„B7“).Select

mfg
Pete

#4

In Word kann ich einen Buchstaben oder auch ein Wort
(anders)farbig unterstreichen.
In Excel kann mir das (farbig) nicht gelingen. Wie kann ich
das erreichen?
Also z.B. ein Wort in einer Zelle ist in schwarzer Schrift,
und ich möchte es rot unterstreichen.
Ein „Workaround“ ist, eine farbige Linie zu zeichnen und diese
zur Unterstreichung zu verwenden, das ist aber keine (schöne)
Lösung!
Wissen die VBA-Gurus hier vielleicht Rat?

Hallo
da hilft auch VBA nichts. Was nicht möglich ist in Excel kann auch mit VBA nicht erzeugt werden.
Eventuell eine Rahmen unten in der gewünschten Farbe. Eine andere Idee hab ich dazu auch nicht.

Gruß Jens

#5

Hallo Thomas!

Das geht auch nicht, zumindest nicht so wie in Word!
Die eine Möglichkeit hast du ja selbst schon erkannt, nämlich eine Linie MALEN, die andere Möglichkeit wäre einfach den Zellrahmen nur als Unterstrich auswählen und farbig anpassen!

Gruß
Ralf

======================================

#6

also, ich hatte keine Probleme damit.

Hallo Pete,

zunächst mal vielen Dank für die Mühe und die Antwort!
Bloß: das Makro funktioniert bei mir nicht!
Ich bekomme immer eine Fehlermeldung
„Fehler beim Kompilieren“ > (Syntaxfehler)

Frage:
1.) in welcher Zelle steht der Satz „Dies ist ein Satz“?
Oder ist es egal in welcher Zelle der steht?
Und kann man das Makro, so wie Du es hier hineingestellt hast, unverändert in den VBA-Editor kopieren? Oder muß man da noch was ändern/hinzufügen???

Du merkst schon:
ich bin ein ziemlicher Trottel was VBA angeht!

WAHNSINNIG NETT wäre es, wenn Du mir vielleicht eine Excel-Mappe mit dem Makro schicken könntest!?
Meine E-Mail Adresse ist:
[email protected]
Das wär toll,
vielen Dank im Voraus und liebe Grüße aus Wien,
Thomas

#7

Die Datei hatte ich gar nicht zurückgespeichert, sorry. Einfach den Makro-Rekorder anschmeissen, etwas irgendwo eingeben, dann ins Editiermodus gehen (F2), irgend etwas markieren, formatieren (z.B. mit Farbe oder Untersteichung), und den Makro anschauen. Muesste gehen.

Pete

#8

Okay,
verstanden, ABER:
jetzt ist das Wort „ein“ blau UND die Unterstreichung ist auch blau!
Das wollte ich eigentlich nicht!
Ich wollte haben daß das Wort „ein“ schwarz ist und nur die Unterstreichung blau ist!
Geht das auch???

Sorry für die vielen blöden Fragen!

Liebe Grüße,
Thomas

#9

//***************************************************

Hallo Thomas!

Soweit mir bekannt ist, ist es sehr schwierig hier über VBA eine Lösung zu finden. In einer Excel-Zelle kann man unterschiedliche Formate festlegen. Wenn du eine Farbe definierst, dann gilt diese auch fürs unterstreichen - außer du zeichnest die Linie manuell. Diese Linie ist nicht dem Objekt einer Zelle zugeordnet und kann eine andere Farbe haben.

Gruß
Ersin.

#10

ach so, sorry, das hatte ich nicht verstanden. Ich weiss gar nicht wie man so was macht, auch nicht in Word. Tut mir leid.

Pete

#11

Hallo Thomas

Sub DemonstrateFontObject()
Dim nColumn As Integer
Dim nRow As Integer
Dim avFonts As Variant

Dim avColors As Variant
’ Die ersten 5 Zeilen werden in den Schriftarten und Schriftfarben gemacht
avFonts = Array(„Tahoma“, „Arial“, „MS Sans Serif“, „Verdana“, „Georgia“)
avColors = Array(vbRed, vbBlue, vbBlack, vbGreen, vbYellow)

For nRow = 1 To 5
With ThisWorkbook.Worksheets(1).Rows(nRow).Font
.Color = avColors(nRow - 1)
.Name = avFonts(nRow - 1)
’ so macht man dann die Unterstreichung in der gleichen Schriftart und Farbe!

If nRow Mod 2 = 0 Then
.Underline = True
Else
.Underline = False
End If
End With
Next
End Sub
hallo,

habe diesen Code im Internet gefunden, getestet auf Excel 2007 und er läßt die Unterstreichung von einzelnen Wörtern farbig zu.

Schau ihn die an, verändere ihn. Morgen Nachmittag habe ich wieder Zeit, wenn du nicht zurechtkommst!

Gruß

Jürgen

#12

Hallo Jürgen

Okay,
nicht verstanden und noch nicht ausprobiert, ABER:
wenn ich das richtig verstehe ist dann ein blau UND die Unterstreichung ist auch blau!
Das wollte ich eigentlich nicht!
Ich wollte haben daß ein Wort schwarz ist und nur die Unterstreichung blau (oder andersfarbig) ist!
Geht das auch???

Sorry für die vielen blöden Fragen!

Liebe Grüße,
Thomas

#13

Hallo Thomas,

ja leider ist ads so, ich habe es auch noch nicht anders hinbekommen. Versuchen werde ich es, dauert aber ein bißchen! - Habe heute aufregende Präsentation und morgen muß ich wieder programmieren.
Komme also erst am Samstag dazu.

Grüße aus Nürnberg

Jürgen

#14

Hallo Thomas

In Word kann ich einen Buchstaben oder auch ein Wort
(anders)farbig unterstreichen.
In Excel kann mir das (farbig) nicht gelingen.

Diese Form der Formatierung einzelner Zeichen oder Worte in eine Zelle ist in Excel nicht möglich.
Du kannst „nur“ das Zeichenformat „Unterstreichen“ wählen und die Farbe inkl. Text in einer anderen Farbe formatieren.

Gruß
Franz