Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sonderzeichen löschen

Sonderzeichen löschen
08.12.2004 15:35:51
GeorgL
Hallo,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sonderzeichen löschen
Ramses
Hallo
ungetestet, aber probier mal
Set rng = Selection
Gruss Rainer
AW: Sonderzeichen löschen
UweD
so

Sub ersetze()
Dim rng As Range
Set rng = Selection
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

Gruß UweD
AW: Sonderzeichen löschen
GeorgL
Vielen Dank Rainer und Uwe, funktioniert bestens.
Grüße,
Georg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige