Wie entfernt man nicht-alphanumerische Zeichen in Excel?

Mit dem folgenden kurzen VBA-Code entfernen Sie ebenfalls alle nicht-alphanumerischen Zeichen – so geht’s:

1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das Modul ein:

VBA: Alle nicht-alphanumerischen Zeichen entfernen

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um den Code auszuführen.

4. Wählen Sie im erscheinenden Dialogfeld einen Bereich aus, aus dem alle nicht-alphanumerischen Zeichen entfernt werden sollen, und klicken Sie auf die Schaltfläche OK.

Alle nicht-alphanumerischen Zeichen wurden nun aus dem ausgewählten Bereich entfernt. Siehe Screenshot:

2 Klicks, um alle nicht-alphanumerischen Zeichen mit einem erstaunlichen Werkzeug zu entfernen

Normalerweise setzen wir den Cursor in eine Zelle und entfernen nicht-alphanumerische Zeichen manuell – eines nach dem anderen. Wenn Sie mit VBA oder benutzerdefinierten Funktionen vertraut sind, können Sie diese so programmieren, dass alle nicht-alphanumerischen Zeichen auf einmal entfernt werden. Doch hier empfehle ich Ihnen ein hervorragendes Werkzeug: die Bestimmte Zeichen löschen-Funktion von Kutools für Excel, mit der Sie alle Arten von Zeichen bereits mit nur zwei Klicks entfernen können!

Sie können zudem eine benutzerdefinierte Funktion erstellen, um sämtliche nicht-alphanumerischen Zeichen aus Excel-Zellen zu entfernen.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden Code in das Modul ein:

Benutzerdefinierte Funktion: Alle nicht-alphanumerischen Zeichen entfernen

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Wechseln Sie nun zurück zum Arbeitsblatt, wählen Sie eine leere Zelle aus und geben Sie die Formel =DeleteNonAlphaNumeric(B3) ein. Ziehen Sie anschließend den AutoAusfüll-Griff nach unten, um die Formel auf weitere Zellen anzuwenden.

Mit den beiden oben genannten Methoden müssen Sie den Code kennen – doch als Excel-Anfänger können die meisten von uns diese nicht nutzen. Deshalb stelle ich Ihnen hier eine einfache Alternative vor.

Kutools für Excel – Bietet über 300 praktische Tools für Excel. Testen Sie alle Funktionen kostenlos 30 Tage lang – ohne Kreditkarte!Jetzt herunterladen

Wenn Sie Kutools für Excel installiert haben, führen Sie die folgenden Schritte aus:

1. Wählen Sie den Bereich aus, aus dem Sie nicht-alphanumerische Zeichen entfernen möchten, und klicken Sie auf Kutools > Text > Bestimmte Zeichen löschen.

2. Anschließend erscheint das Dialogfeld Zeichen löschen. Aktivieren Sie ausschließlich die Option Nicht-alphanumerisch, und klicken Sie auf die Schaltfläche OK.

Nun wurden alle nicht-alphanumerischen Zeichen aus den Textzeichenfolgen entfernt.