Hallo ich habe ein Problem.
ich will in einer Mappe alle ä,ö.. umwandeln in ae, oe..
Ich habe ja schon in der Onlinehilfe ein Programm dazu gefunden.
dieses programmstück(steht unten) findet ja schon alle ä 's.
Aber leider ersetzt das Programmstück das ganze Wort anstatt nur das ä.
Bsp: Träger wird zu "ae" anstatt zu Traeger
kann mir da mal bitte jemand weiterhelfen? vielleicht gibt es ja ne einfache lösung.
PRGRAMM:
Dim firstAddress As String
Dim Sonderzeichenwechsel As String


Worksheets(1).Activate
With Worksheets(1).Range("a3:ae400")
Set Sz = .Find("ä", LookIn:=xlValues)

If Not Sz Is Nothing Then
firstAddress = Sz.Address
MsgBox "Achtung es gibt ein Ä"
Do
Sz.Value = "ae"
Set Sz = .FindNext(Sz)
Loop While Not Sz Is Nothing And Sz.Address firstAddress

End If
End With