Sonderzeichen in Excel per Makro entfernen

Extras -> Makro -> Visual-Basic-Editor
oder
Alt+F11

VBAProject(Arbeitsmappenname.xls) -> Einfügen -> Modul

Public Sub Zeichenloeschung()
Dim i As Long
Dim Start As String
Dim Ende As String
Dim Temp As String
Dim erlaubt As String
Start = Time ' <- hier wird eine Zeitmessung eingeleitet  
erlaubt = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!§$%&/()=?*#ß\ÄÖÜ@,-_:.+;<> " ' <- hier werden die Zeichen definiert, die erlaubt sind;  
' Groß-/Kleinschreibung wird ignoriert  
Application.ScreenUpdating = False ' Bildschirm-Aktualisierung wird hier deaktiviert;  
' Ansonsten dauert der Vorgang noch ein wenig länger, da er sonst jede Änderung sofort anzeigt  
    For Each C In Selection
        With C
            Temp = ""  
            For i = 1 To Len(.Text)
                If InStr(1, erlaubt, Mid(.Text, i, 1), vbTextCompare) > 0 Then
                    Temp = Temp & Mid(.Text, i, 1)
                End If
            Next i
            .Value = Temp
        End With
        Next C
Application.ScreenUpdating = True ' Jetzt wird die Anzeige wieder aktualisiert  
Ende = Time ' <- hier wird die Zeitmessung gestoppt  
MsgBox "Start: " & Start & vbCrLf & "Ende: " & Ende, vbInformation, "...fertig!" ' hier wird angezeigt, wie lange der ganze Vorgang gedauert hat  
End Sub

Extras -> Makro -> Makros...
oder
Alt+F8