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