Option Explicit
Sub Makro1()
Dim arrIst, arrSoll, x
arrIst = Split("„,”,,Ž,™,š,á", ",")
arrSoll = Split("ä,ö,ü,Ä,Ö,Ü,ß", ",")
For x = 0 To UBound(arrIst)
Cells.Replace What:=arrIst(x), _
Replacement:=arrSoll(x), _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=True, _
SearchFormat:=False, _
ReplaceFormat:=False
Next x
End Sub