Sonderzeichen löschen
08.12.2004 15:35:51
GeorgL
ich habe folgendes Makro in der Recherche gefunden:
Sub ersetze()
Dim rng As Range
Set rng = ActiveCell
rng.Replace What:=Chr(9), Replacement:=" ", LookAt:=xlPart
rng.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart
rng.Replace What:=Chr(13), Replacement:=" ", LookAt:=xlPart
End Sub
Das Makro löscht die lästigen Sonderzeichen die bei Downloads z.B. aus SAP mitkommen, aber nur in der jeweils aktiven Zelle. Wie muss das angepasst werden damit das Makro in einem von mir vorher markiertem Bereich ausgeführt wird - ich kann leider selbst nicht programmieren.
Danke.
Grüße,
Georg
Anzeige