Schriftart ändern
29.05.2008 12:47:23
gp
ich habe folgenden VBA Code
For KeyCount = 1 To Len(strTxt)
If Mid(Cells(20, 10), KeyCount, 2) = "VT" Then
With Cells(20, 10).Characters(Start:=KeyCount, Length:=2).Font.Name = "Arial"
.FontStyle = "Fett"
End With
End If
Next KeyCount
Das Problem scheint am "If Mid(Cells(20, 10)... ="VT" zu liegen, da Then übersprungen wird. Die Frage ist
was muss ich schreiben damit in dem String nach "VT" gesucht wird.
Für Hinweise herzlichen Dank.
Gruss
Gunter