Schriftfarbe in einer Zeile ändern

Forumthread: Schriftfarbe in einer Zeile ändern
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Schriftfarbe in einer Zeile ändern

24.03.2016 14:30:32

Jens

Hallo zusammen,
Ich hoffe auf Eure Hilfe und Unterstützung.
Ich möchte die Schriftfarbe und die Schriftart einer Zeile ändern. Dazu möchte ich die Eingabe über eine InputBox nutzen. Der User soll dort die Excel Zeilennummern eingeben. In dieser Zeile soll dann die Schriftfarbe in rot und die Schriftart in kursiv geändert werden.
Ich freue mich auf Eure Hilfe
BG Jens

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schriftfarbe in einer Zeile ändern

24.03.2016 14:41:47

Steve
AW: Schriftfarbe in einer Zeile ändern

24.03.2016 15:03:52

Jens

AW: Schriftfarbe in einer Zeile ändern

24.03.2016 14:41:47

Steve

Hallo Jens,
etwa so?


Sub Faerben()
Dim sZeilen As String, aZeilen, i As Long
sZeilen = InputBox("Bitte geben sie die gewünschten Zeilen an." & Chr(10) & _
"zulässige Trennzeichen: "";""" & Chr(10) & _
"bzw. für zusammenhängende Bereiche: "":""", "Eingabe erforderlich")
'Bsp: 1;5:7     > färbt Zeilen 1 und 5 bis 7
aZeilen = Split(sZeilen, ";")
For i = 0 To UBound(aZeilen)
With Rows(aZeilen(i))
.Font.Color = vbRed
.Font.Italic = True
End With
Next i
End Sub

lg Steve

AW: Schriftfarbe in einer Zeile ändern

24.03.2016 15:03:52

Jens

perfekt. Danke für die schnelle Hilfe