ich möchte, das das VT und der : aus diesem Code
strTxt = strTxt & "VT " & Cells(zz, 9) & ": " & Cells(zz, 3)
Fett dargetstellt wird. Ich hoffe das geht so einfach.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter
x = len(strText)+1
y = x + 2 + len(cells(zz,0).value)
strTxt = strTxt & "VT " & Cells(zz, 9) & ": " & Cells(zz, 3)
with activecell.
.value = strTxt
.Characters(Start:=x, Length:=2).Font.FontStyle = "Fett" 'VT fett
.Characters(Start:=y, Length:=1).Font.FontStyle = "Fett" 'Doppelpunkt fett
end with
Gruß, Daniel
x = Len(strTxt) + 1
y = x + 3 + Len(Cells(zz, 9).Value)
strTxt = strTxt & "VT " & Cells(zz, 9) & ": " & Cells(zz, 3)
With ActiveCell
.Value = strTxt
.Characters(Start:=x, Length:=2).Font.FontStyle = "Fett" 'VT fett
.Characters(Start:=y, Length:=1).Font.FontStyle = "Fett" 'Doppelpunkt fett
End With
Gruß, Daniel