Umlaute - falsche Darstellung
11.03.2021 12:47:12
Knof
Ich ersetze durch ein VBA Makro alle "ae" durch "ä", alle "ue" durch "ü" und alle "oe" durch "ö".
Wenn ich das Makro auf meinem Macbook ausführe, funktioniert es einwandfrei. Wenn eine Kollegin aber das Makro auf ihrem Windows Computer ausführt, werden die Umlaut durch Fragezeichen ersetzt.
Woran kann es liegen ? Die Daten werden über eine UTF-8 kodierte CSV Datei importiert. Die bereits vorhandenen Umlaute werden auch korrekt dargestellt. Nur die Umlaute, die durch das Makro hinzugefügt werden, sehen kryptisch aus.
Dies ist ebenfalls im VBA Code zu sehen. In meinem VBA Code Editor ist "ü" "ä" und "ö" zu sehen. _
Schicke ich die Datei aber an meine Kollegin und sie öffnet es auf ihrem windows Computer, _
sind sogar im Code Editor die Umlaute kryptisch dargestellt.
Function SpaltenKopieren(spalte As Integer)
Selection.Copy
Sheets("Sortiert").Select
Columns(spalte).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(1, spalte).Value = Replace(Cells(1, spalte).Value, "_", " ")
Cells(1, spalte).Value = Replace(Cells(1, spalte).Value, "ae", "ä")
Cells(1, spalte).Value = Replace(Cells(1, spalte).Value, "ue", "ü")
Cells(1, spalte).Value = Replace(Cells(1, spalte).Value, "oe", "ö")
Sheets("Original").Select
spalte = spalte + 1
End Function
Anzeige