Gruppe
Allgemein
Problem
Wie kann ich einem Zelleintrag eine Zeichenfolge mit anderer Schriftfarbe und mit anderen Schriftattributen hinzufügen?
StandardModule: basMain
Sub TextKorrigieren()
Dim sOld As String
Dim sNew As String
sOld = Range("A1").Text
sNew = "ZweiterText"
With Range("A1")
.Value = sOld & sNew
With .Characters(Start:=1, Length:=Len(sOld)).Font
.Name = "Arial"
.Size = 10
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=Len(sOld) + 1, Length:=Len(sNew)).Font
.Name = "Arial"
.Size = 6
.ColorIndex = 3
End With
End With
End Sub