Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einer Zeichenfolge eine zweite in anderer Schriftart hinzufügen

Gruppe

Zeichenfolge

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