Wie ersetzt man Akzentzeichen durch normale Zeichen in Excel?

Akzentzeichen mit VBA durch normale Zeichen ersetzen

Akzentzeichen mit Kutools für Excel durch normale Zeichen ersetzen

Für Benutzer, die sich gut mit Microsoft Excel auskennen, ist die Verwendung eines VBA-Makros eine einfache Möglichkeit, diese komplizierte Aufgabe zu bewältigen.

1. Halten Sie die Tasten Alt + F11 in Excel 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. Gehen Sie dann zu einer leeren Zelle und fügen Sie die Formel in eine Zelle ein: =CheckStringCHAR(InString), zum Beispiel =CheckStringCHAR("ù"), oder =CheckStringCHAR(A2).

Hinweise:
(1) Ihr Microsoft Visual Basic erkennt möglicherweise keine Akzentzeichen, wenn es Unicode nicht unterstützt. Zum Beispiel könnten Sie beim Einfügen von "š" in Visual Basic ein "?" erhalten. In diesem Fall ist dieses Makro nicht verfügbar.
(2) Es werden keine Akzentzeichen direkt in den Zeichenfolgen der ausgewählten Zelle ersetzt.

Die Verwendung eines VBA-Makros erfordert viel Geschick und Wissen. Die folgende Methode wird Ihnen helfen, die Arbeit mit nur wenigen Klicks zu erleichtern. Das Tool 'Akzentzeichen ersetzen' von Kutools für Excel ermöglicht es Ihnen, alle Arten von Akzentzeichen auf einmal leicht durch normale Zeichen zu ersetzen.

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

2. Klicken Sie auf Kutools > Text > Akzentzeichen ersetzen…, siehe Screenshot:

3. In Akzentzeichen ersetzen Dialogfeld klicken Sie auf die Alle auswählen Schaltfläche, um alle Ersetzungsregeln auszuwählen, und klicken Sie auf die OK-Schaltfläche, um alle Akzentzeichen zu ersetzen. Siehe Screenshot:

Hinweise:
(1) Wenn bestimmte Akzentzeichen, die Sie benötigen, nicht vorhanden sind, können Sie auf die Regel hinzufügen Schaltfläche klicken, um Ihre eigenen Regeln in das Listenfeld im obigen Dialogfeld 'Akzentzeichen ersetzen' einzufügen.
(2) Sie können neue Ersetzungsregeln im Dialogfeld 'Akzentzeichen ersetzen' anpassen.

Jetzt werden alle Akzentzeichen in den Zeichenfolgen des ausgewählten Bereichs sofort in normale Zeichen konvertiert. Siehe Screenshot:

Die Akzentzeichen ersetzen Funktion von Kutools für Excel kann ganz einfach alle Arten von Akzentzeichen im gesamten Arbeitsblatt durch normale Zeichen ersetzen. Testen Sie es kostenlos!