Hallo! Dann tausch mal bittte die Funtkion tausch mit folgender aus. Ist jetzt nicht die beste Programmierung aber auf die schnelle und von dem Rechner hier reichts. :-) Bei der anderen Version schaue ich mal aber poste nix neues. Die hat bei mir eigentlich auch alles gemacht. Das hier ist nur Hobby und Zeitvertreib. Und ganz so auf Anhieb läuft es auch nicht. :-) Problem ist meist, dass man die Ausgangsdaten nicht hat und wirklich nur auf Zuruf was ändern kann. Gruß und viel Spaß mit der Datei.
Function tausch()
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
ActiveSheet.Cells(i, 5) = Replace(ActiveSheet.Cells(i, 5), Chr(195) & Chr(132), "Ä")
ActiveSheet.Cells(i, 5) = Replace(ActiveSheet.Cells(i, 5), Chr(195) & Chr(164), "ä")
ActiveSheet.Cells(i, 5) = Replace(ActiveSheet.Cells(i, 5), Chr(195) & Chr(150), "Ö")
ActiveSheet.Cells(i, 5) = Replace(ActiveSheet.Cells(i, 5), Chr(195) & Chr(182), "ö")
ActiveSheet.Cells(i, 5) = Replace(ActiveSheet.Cells(i, 5), Chr(195) & Chr(156), "Ü")
ActiveSheet.Cells(i, 5) = Replace(ActiveSheet.Cells(i, 5), Chr(195) & Chr(188), "ü")
ActiveSheet.Cells(i, 5) = Replace(ActiveSheet.Cells(i, 5), Chr(195) & Chr(159), "ü")
ActiveSheet.Cells(i, 6) = Replace(ActiveSheet.Cells(i, 6), Chr(195) & Chr(132), "Ä")
ActiveSheet.Cells(i, 6) = Replace(ActiveSheet.Cells(i, 6), Chr(195) & Chr(164), "ä")
ActiveSheet.Cells(i, 6) = Replace(ActiveSheet.Cells(i, 6), Chr(195) & Chr(150), "Ö")
ActiveSheet.Cells(i, 6) = Replace(ActiveSheet.Cells(i, 6), Chr(195) & Chr(182), "ö")
ActiveSheet.Cells(i, 6) = Replace(ActiveSheet.Cells(i, 6), Chr(195) & Chr(156), "Ü")
ActiveSheet.Cells(i, 6) = Replace(ActiveSheet.Cells(i, 6), Chr(195) & Chr(188), "ü")
ActiveSheet.Cells(i, 6) = Replace(ActiveSheet.Cells(i, 6), Chr(195) & Chr(159), "ü")
Next i
End Function
|