AW: Unterstrichenen Buchstaben suchen/ersetzen
04.10.2005 19:38:29
chris
Hallo Werner,
ich habe mal schnell was zusammengebaut für eine zelle für die Actice Zelle.
wenn das ok ist kannst du vieleicht selbst weitermachen.Ich muss jetzt fort.
Wenn du nicht klar kommst kannst es ja noch mal posten. Wenn dir bis dann noch keiner weiterhelfen konnte mach ich es wenn ich komme.
Aber sag mir ob mein Ansatz ok ist.
grüße Chris
Sub start()
cb = Len(ActiveCell.Value)
neu = ActiveCell.Value
For x = 1 To cb
With ActiveCell.Characters(Start:=x, Length:=1).Font
If .Underline = xlUnderlineStyleSingle Then
' MsgBox ("unterstrichen")
neu = Left(neu, x - 1) & "'" & Right(neu, Len(neu) - x + 1)
Else
' MsgBox ("nicht unterstrichen")
End If
End With
Next
ActiveCell.Value = neu
End Sub