Chinesische Zeichen per VBA aus Text entfernen
Schritt-für-Schritt-Anleitung
Um chinesische Zeichen aus mehreren Zellen in Excel per VBA zu entfernen, gehe wie folgt vor:
-
Öffne deine Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA)-Editor zu öffnen.
-
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
-
Füge den folgenden Code in das Modul ein:
Option Explicit
Sub EntferneChinesischeZeichen()
Dim i As Long
Dim letzteZeile As Long
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row ' Bestimme die letzte Zeile in Spalte A
For i = 1 To letzteZeile
Cells(i, 2).Value = OnlyAscii(Cells(i, 1).Value) ' Entferne die chinesischen Zeichen und schreibe in Spalte B
Next i
End Sub
Function OnlyAscii(ByVal s As String) As String
Dim i As Long, c As String
For i = 1 To Len(s)
c = Mid(s, i, 1)
If AscW(c) > 0 And AscW(c) < 256 Then OnlyAscii = OnlyAscii & c ' Füge nur ASCII-Zeichen hinzu
Next i
End Function
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Wähle die Zelle in Spalte A, die die Zeichen enthält, die du entfernen möchtest.
-
Drücke ALT + F8, wähle EntferneChinesischeZeichen aus und klicke auf Ausführen.
Das Skript entfernt die chinesischen Zeichen und gibt das Ergebnis in Spalte B aus.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du keine VBA-Programmierung nutzen möchtest, kannst du auch die Excel-Funktion WECHSELN verwenden:
- Setze in Spalte B folgende Formel ein:
=WECHSELN(A1; "右阀座"; "")
- Ziehe die Formel nach unten, um sie auf weitere Zeilen anzuwenden.
Diese Methode erfordert jedoch mehr manuelle Anpassungen, wenn du viele verschiedene Zeichen entfernen möchtest.
Praktische Beispiele
Angenommen, du hast folgende Daten in Spalte A:
| A |
B |
| 右阀座C12045.6.1.25 |
C12045.6.1.25 |
| 压力表安装板BCW46D.6.10-4 |
BCW46D.6.10-4 |
Mit dem VBA-Skript oder der WECHSELN-Funktion kannst du die chinesischen Zeichen erfolgreich entfernen und die gewünschten Ergebnisse in Spalte B erhalten.
Tipps für Profis
- Wenn du häufig mit chinesischen Zeichen arbeitest, kannst du das VBA-Skript anpassen, um mehrere Zeichen gleichzeitig zu entfernen, indem du die Funktion
OnlyAscii erweiterst.
- Überlege, eine benutzerdefinierte Funktion zu erstellen, die du dann als Formel in Excel verwenden kannst, um den Text zu bereinigen.
FAQ: Häufige Fragen
1. Kann ich das Skript für andere Zeichen verwenden?
Ja, du kannst die Bedingung in der OnlyAscii-Funktion anpassen, um andere Zeichen zu entfernen, die du nicht benötigst.
2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst die Desktop-Version von Excel verwenden.
3. Wie kann ich Dollarzeichen oder andere spezielle Zeichen entfernen?
Du kannst das VBA-Skript modifizieren, um spezifische Zeichen wie Dollarzeichen, Minuszeichen oder Rautenzeichen zu entfernen, indem du die OnlyAscii-Funktion anpasst.