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!
|