Teiltext in Zelle fett
20.05.2020 07:59:17
MRUTOR
ich habe einen Code, mit dem ich die Positionen von Zeilenumbrüchen in einer Zelle feststelle. Danach will ich mit Hilfe dieser Position, den Text mit einer bestimmten festen Länge nach diesen Zeilenumbrüchen fett machen. Den Code habe ich auch.
Und er funktioniert. ABER nun zum Problem. Er funktioniert nur im Einzelschritt Modus. Also mit F8. Wenn ich den Code normal durchlaufen lasse, wird der komplette Text in der Zelle fett.
Noch zur Info: Der Text in der Zelle wird auch per Code aus einer Userform eingetragen. Ist also vom Aufbau immer gleich. Nur die Positionen der Zeilenumbrüche kann variieren, je nachdem, was der Benutzer in der Userform schreibt.
Kann mir bitte jemand erklären, warum bei Normaldurchlauf der komplette Text in der Zelle fett wird?
Vielen Dank schon mal.
Hier mein Code:
intPos1 = InStr(ws.Cells(lngResRow, lngResCol), Chr(10))
intPos2 = InStr(intPos1 + 1, ws.Cells(lngResRow, lngResCol), Chr(10))
intPos3 = InStr(intPos2 + 1, ws.Cells(lngResRow, lngResCol), Chr(10))
With ws.Cells(lngResRow, lngResCol).Characters(Start:=1, Length:=8).Font
.FontStyle = "Bold"
End With
With ws.Cells(lngResRow, lngResCol).Characters(Start:=intPos1 + 1, Length:=5).Font
.FontStyle = "Bold"
End With
With ws.Cells(lngResRow, lngResCol).Characters(Start:=intPos2 + 1, Length:=4).Font
.FontStyle = "Bold"
End With
With ws.Cells(lngResRow, lngResCol).Characters(Start:=intPos3 + 1, Length:=4).Font
.FontStyle = "Bold"
End With
Gruß Tor