Hallo miteinander,

Ich drehe bald durch! Ich Versuche seit ewigkeiten aus Zellen in denen Sich ein " €" (LeerzeichenEuro) befindet, besagtes zu entfernen, nachdem ich Daten importiert habe.

Das einzige was ich hinbekomme ist:

    ' Replace Euro Sighn
Dim Zelle As Range
Dim SuchenNach As String
Dim ErsetzenDurch As String
SuchenNach = Chr(128)
ErsetzenDurch = ""
For Each Zelle In ActiveSheet.UsedRange
 Zelle.Value = Application.Substitute(Zelle.Value, SuchenNach, ErsetzenDurch)
Next Zelle

Habt ihr noch eine Idee (Bitte vorher Testen, habe schon zu viele falsche Ratschläge in einem anderen Forum bekommen)?

Danke im Voraus!