Textteile unterschiedlich formatieren
felix
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