VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einer Zeichenfolge eine zweite in anderer Schriftart hinzufügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge