Schriftfarbe für Textteil über Dialogs(26)
15.07.2017 10:44:44
Dieter(Drummer)
das Makro von Toni funtioniert perfekt. Ich suche noch die Möglichkeit, dass ich den Rest-Textteil z.B. mit "Application.Dialogs(26)", Farbe für Schrift, wählen kann.
Der Dialog wird wohl aufgerufen, aber die gewählte Schriftfarbe wird nicht genutzt.
Was ist da falsch im Makro oder fehlt dort?
Mit der Bitte um Hilfe grüßt
Dieter(Drummer)
'Herber: von Tino am 14.07.2017 18:52:46
Sub TextTeilFarbe()
Dim rng As Range, sInput$
Dim nVon&, nBis&
sInput = InputBox("Text Eingeben")
For Each rng In Selection
'rng.Font.Color = RGB(0, 0, 255) 'Von Toni ok.
rng = Application.Dialogs(26).Show 'Font: Hier soll die Schriftfarbe angegeben werden _
nVon = InStr(rng.Value, sInput)
If nVon > 0 Then
nBis = Len(sInput)
rng.Characters(Start:=nVon, Length:=nBis).Font.ColorIndex = xlAutomatic
End If
Next
End Sub