Brenda hat viele Informationen, die importiert oder in ein Arbeitsblatt eingefügt wurden. Manchmal enthält der Text im Arbeitsblatt „fremd“

und seltsame Charaktere. Sie fragt sich, ob es eine Möglichkeit gibt, die Daten einfach so zu konvertieren, dass sie keine Nicht-ASCII-Zeichen enthalten, und möglicherweise werden einige Fremdzeichen in reguläre ASCII-Werte konvertiert (z. B. das Konvertieren von Buchstaben mit Akzent in Buchstaben ohne Akzent).

Es gibt ein paar Dinge, die Sie ausprobieren können. Erstens können Sie die CLEAN-Arbeitsblattfunktion verwenden, um nicht druckbare Zeichen zu entfernen. Verwenden Sie die Funktion einfach folgendermaßen:

=CLEAN(A1)

Das Ergebnis ist „bereinigter“ Text ohne nicht druckbare Dateien. Wenn Sie Fremdzeichen durch reguläre ASCII-Zeichen ersetzen möchten, muss dies mit einem Makro erfolgen. Hier ist ein Beispiel für einen relativ einfachen Ansatz:

Sub StripAccent()

Dim sAcc As String     Dim sReg As String     Dim sA As String     Dim sR As String     Dim i As Integer

sAcc = "������������������������������������������������������������"

sReg = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"



For i = 1 To Len(sAcc)

sA = Mid(sAcc, i, 1)

sR = Mid(sReg, i, 1)

Selection.Replace What:=sA, Replacement:=sR, _           LookAt:=xlPart, MatchCase:=True     Next End Sub

Das Makro durchläuft die Zeichen in der Variablen sAcc und verwendet nacheinander Suchen und Ersetzen, um sie durch das entsprechende Zeichen in der Variablen sReg zu ersetzen. Sie können den Inhalt von sAcc und sReg an Ihre Conversion-Anforderungen anpassen. Der Schlüssel ist, sicherzustellen, dass beide gleich lang sind.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11492) gilt für Microsoft Excel 97, 2000, 2002 und 2003.

Eine Version dieses Tippes für die Multifunktionsleistenoberfläche von Excel (Excel 2007 und höher) finden Sie hier: