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