Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Einer Zeichenfolge eine zweite in anderer Schriftart hinzufügen
Problem
Wie kann ich einem Zelleintrag eine Zeichenfolge mit anderer Schriftfarbe und mit anderen Schriftattributen hinzufügen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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