Option Explicit
Sub Makro1()
'
Dim arrIst, arrSoll, x
'
'Split-Funktion
'Gibt ein nullbasiertes, eindimensionales Datenfeld zurück,
'das eine festgelegte Anzahl an untergeordneten Zeichenfolgen enthält.
'Split(Zeichenfolge, Trennzeichen)
'
'einen individuellen Vergleich basteln
'denn nicht jede Datenquelle benutzt die gleichen Sonderzeichen
'
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
|