Unicode (?) umwandeln

Übersicht låsst sich per Makro schaffen
(Übersicht lässt sich per Makro schaffen )  🙂 

Vielle­icht haben Sie sich auch schon ein­mal nach dem Import beispiel­sweise eines csv-Doku­ments ver­wun­dert die Augen gerieben, warum Sie statt der deutschen Umlaute irgendwelche kryp­tis­chen Dop­pelze­ichen (wie in der ersten Zeile der Über­schrift) sehen. In solchen Fällen wurde der Export von Dat­en ein­fach anders codiert, als es hier in Mit­teleu­ropa üblich ist. – Mit einem kleinen Makro kön­nen Sie nach dem Import rasch Abhil­fe schaf­fen:

Option Explicit

Sub Unicode2Westeuropa()
   With ActiveSheet.UsedRange
      .Replace "Ä", "Ä"   'UTF-8 dezimal: 195 132 | Unicode dezimal: 0196
      .Replace "Ö", "Ö"   'UTF-8 dezimal: 195 150 | Unicode dezimal: 0246
      .Replace "Ãœ", "Ü"   'UTF-8 dezimal: 195 156 | Unicode dezimal: 0220
      .Replace "ä", "ä"   'UTF-8 dezimal: 195 164 | Unicode dezimal: 0228
      .Replace "ö", "ö"   'UTF-8 dezimal: 195 182 | Unicode dezimal: 0246
      .Replace "ü", "ü" 'UTF-8 dezimal: 195 188 | Unicode dezimal: 0252
      .Replace "ß", "ß"   'UTF-8 dezimal: 195 159 | Unicode dezimal: 0223
      .Replace "€", "€"   'UTF-8 dezimal: 194 128 | Unicode dezimal: 0214

      'nicht typisch deutsche Beispiele, hier auskommentiert
      '.Replace "Ã…", "Å"   'UTF-8 dezimal: 195 133 | Unicode dezimal: 0197
      '.Replace "£", "£"   'UTF-8 dezimal: 195 163 | Unicode dezimal: 0163
      '.Replace "Â¥", "¥"   'UTF-8 dezimal: 195 165 | Unicode dezimal: 0165
      'Weitere Ersetzungen nach Bedarf …
   End With
End Sub

Eine aus unser­er Sicht sehr gute Über­sicht find­en Sie hier im Inter­net. Dort find­en Sie gewiss auch Son­derze­ichen, die hier nicht aufge­führt sind. Ins­beson­dere wenn Sie in Gren­zre­gio­nen wohnen und öfter ein­mal aus dem Nach­bar­land Dat­en bekom­men, die beispiel­sweise mit File­Mak­er erstellt und dann exportiert wor­den sind.

Einige Worte zu den Code-Zeilen und deren Kom­mentaren: Fügen Sie den Code in das Mod­ul des aktuellen Blattes oder in DieseAr­beitsmappe ein. Wenn Sie diese Rou­tine öfter benöti­gen kann es hil­fre­ich sein, das Makro als Add-In abzus­pe­ich­ern.

[NachOben­Let­zte Verweis=„T&T: Unocode2Westeuropa”]
Dieser Beitrag wurde unter Fehlerbehandlung, Formatierung, Mit VBA/Makro, Tipps und Tricks, Verschiedenes abgelegt und mit , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.