Wie ersetzt man Akzentzeichen in Excel durch reguläre Zeichen?

Ersetzen Sie Akzentzeichen mithilfe von VBA durch reguläre Zeichen

Ersetzen Sie Akzentzeichen mithilfe von Kutools für Excel durch reguläre Zeichen

Für Anwender, die mit Microsoft Excel vertraut sind, bietet ein VBA-Makro eine einfache Lösung für diese komplexe Aufgabe.

1. Halten Sie in Excel die Tasten Alt + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro im Modulfenster ein.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Wechseln Sie anschließend zu einer leeren Zelle und geben Sie dort die folgende Formel ein: =CheckStringCHAR(InString), zum Beispiel =CheckStringCHAR(„ù") oder =CheckStringCHAR(A2).

Hinweise:
(1) Ihr Microsoft Visual Basic erkennt unter Umständen Akzentzeichen möglicherweise gar nicht, wenn Unicode nicht unterstützt wird. Fügen Sie beispielsweise „š“ in Visual Basic ein, erscheint stattdessen unter Umständen ein „?“. In diesem Fall steht das Makro nicht zur Verfügung.
(2) Es ersetzt Akzentzeichen in den Zeichenfolgen der ausgewählten Zelle nicht direkt.

Die Verwendung eines VBA-Makros erfordert zu viel Fachwissen und Erfahrung. Mit der folgenden Methode arbeiten Sie deutlich einfacher – und das mit nur wenigen Klicks.Mit dem Werkzeug „Akzentzeichen ersetzen“ von Kutools für Excel ersetzen Sie problemlos alle Arten von Akzentzeichen gleichzeitig durch reguläre Zeichen.

1. Wählen Sie den Bereich aus, in dem Sie alle Akzentzeichen ersetzen möchten.

2. Klicken Sie auf Kutools > Text > Ersetze Akzentzeichen … (siehe Screenshot).

3. Klicken Sie im Dialogfeld Ersetze Akzentzeichen auf die Schaltfläche Alle auswählen, um sämtliche Ersetzungsregeln auszuwählen, und bestätigen Sie mit „OK“, um alle Akzentzeichen zu ersetzen (siehe Screenshot).

Hinweise:
(1) Falls bestimmte benötigte Akzentzeichen fehlen, klicken Sie auf die Schaltfläche Regel hinzufügen, um eigene Regeln zur Liste im oben genannten Dialogfeld „Ersetze Akzentzeichen“ hinzuzufügen.
(2) Sie können neue Ersetzungsregeln direkt im Dialogfeld „Ersetze Akzentzeichen“ anpassen.

Jetzt werden alle Akzentzeichen in den Zeichenfolgen des Bereichs „Auswählen“ sofort in reguläre Zeichen umgewandelt (siehe Screenshot).

Die Funktion Ersetze Akzentzeichenvon Kutools für Excel ermöglicht es Ihnen, problemlos alle Arten von Akzentzeichen in der gesamten Arbeitsmappe durch reguläre Zeichen zu ersetzen.Testen Sie es kostenlos!