AW: Zeichen ersetzten
16.08.2005 12:07:23
dieter
Hi Volker,
folgendes Makro ersetzt alle Sonderzeichen. Einfach Tabelle aufrufen und dann Makro starten.
Gruß
Dieter (Drummer)
Makro:
Sub SonderzeichenErsetzen()
Application.ScreenUpdating = False
Cells.Replace What:="", Replacement:="ü", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="", Replacement:="ö", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="", Replacement:="ä", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="á", Replacement:="ß", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
MsgBox "Alle ersetzbaren Sonderzeichen wurden korrigiert > ä, ö, ü, ß <"
Application.ScreenUpdating = True
End Sub
()