Excel und VBA: Formeln, Programmierung, Lösungen

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