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