Textteile unterschiedlich formatieren

Hallo allerseits,
Ich ab folgendes Problem, vielleicht kann mir jemand weiterhelfen oder Tipps geben.
Aus einem langen String (strMsg) les ich unterschiedliche Textteile aus (strVar). Diese Teile sollen in einer Zelle ausgeschrieben werden, aber mit unterschiedlicher Formatierung. Wenn der Teilstring mit "&" beginnt, soll Fett formatiert werden, saonst Normal. Ich hab das mal folgendermassen im VBA umgesetzt:
If Mid(strMsg, intStartPos, 1) = "&" Then
strVar = Mid(strMsg, intStartPos + 1, intEndPos - intStartPos)
Worksheets("msg").Cells(i, 1) = Worksheets("msg").Cells(i, 1) & " " & strVar
Worksheets("msg").Cells(i, 1).Characters(Len(Worksheets("msg").Cells(i, 1).Value) - Len(strVar), _
Len(strVar)).Font.FontStyle = "Bold Italic"
Else
strVar = Mid(strMsg, intStartPos, intEndPos - intStartPos)
Worksheets("msg").Cells(i, 1) = Worksheets("msg").Cells(i, 1) & " " & strVar
Worksheets("msg").Cells(i, 1).Characters(Len(Worksheets("msg").Cells(i, 1).Value) - Len(strVar), _
Len(strVar)).Font.FontStyle = "Normal"
End If
Das Problem ist, dass wenn ich den neuen Textteil (strVar) mit der Zelle mit bereits bestehendem Text verbinde, die bereits bestehende Formatierung verloren geht.
Könnt ihr mir weiter helfen und sagen, wie man Textteile zu einem Zelleninhalt hinzufügt, ohne dessen Formatierung zu beeinflussen?
Im voraus vielen Dank
felix

Hallo,
teste mal ob es so gehen könnte.

Sub MsgConcatenator()
Dim strMsg$
Dim rng As Range
Dim objMatch As Object, Regex As Object
Dim iColor As Integer
Dim i&
iColor = 5 'Farbe 

Set Regex = CreateObject("Vbscript.Regexp")
    With Regex
        .IgnoreCase = False
        .MultiLine = True
        .Pattern = "&\w{0,},"
        .Global = True
    End With

For Each rng In Selection

 If rng <> "" And InStr(rng, "&") > 0 Then
        strMsg = rng.Value
        '"<space>" durch Leerzeichen ersetzen 
        strMsg = Replace(strMsg, "<space>", " ")
        '"<openparen>" durch ( ersetzen 
        strMsg = Replace(strMsg, "<openparen>", "(")
        '"<closeparen>" durch ( ersetzen 
        strMsg = Replace(strMsg, "<closeparen>", ")")
        '"<solidus>" durch backslash ersetzen 
        strMsg = Replace(strMsg, "<solidus>", "\")
        '"<u00e4>" durch ä ersetzen 
        strMsg = Replace(strMsg, "<u00e4>", "ä")
        '"<u00e6>" durch ö ersetzen 
        strMsg = Replace(strMsg, "<u00e4>", "ö")
        
        rng.Value = strMsg
    
        With rng.Font
         .ColorIndex = xlAutomatic
         .Bold = False
         .FontStyle = "Arial"
         .Italic = False
        End With
    
        Set objMatch = Regex.Execute(strMsg)
        If Not objMatch Is Nothing Then
         rng = Replace(rng, "&", "")
         rng = Replace(rng, ",", "")
         i = 0
          For Each objMatch In objMatch
            With rng.Characters(objMatch.FirstIndex + 1 - i, Len(objMatch) - 1).Font
             .ColorIndex = iColor       'Farbe 
             .Bold = True               'Fett 
            End With
            i = i + 3
          Next objMatch
            Set objMatch = Nothing
        End If


  End If
Next
End Sub

Gruß Tino

Textteile unterschiedlich formatieren

Forumthread: Textteile unterschiedlich formatieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Textteile unterschiedlich formatieren

Forumthread: Textteile unterschiedlich formatieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread