Sonderzeichen in VBA
24.11.2004 23:46:42
Stefan
ich hoffe, es kann mir jemand helfen.
Ich lerne Polnisch und nutze zum Vokaln pauken ein Lernprogramm.
Da dieses aber nur über eine ziemlich bescheidene Druckfunktion verfügt, habe ich die Vokabeln mit der Exportfunktion des Programms über eine Textdatei in Excel eingefügt.
Bereits in der Textdatei werden allerdings die polnischen Sonderzeichen
ą, ć, ę, ł, ń, ś, ź, ż, Ł, Ś
durch die Zeichen
à, ã, æ, ù, ñ, ú, ý, ê, Ù, Ú
ersetzt.
Deshalb habe ich ein Makro in Excel aufgezeichnet, welches die Zeichen wieder zurückersetzen sollte (ziemlich umständlich über Bearbeiten/Ersetzen). Resultat waren dann die Buchstaben
a, c, e, l, n, s, z, z, L, S
in den Vokabeln.
Und tatsächlich steht im Quelltext auch
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "a"
Range("B1").Select
ActiveCell.FormulaR1C1 = "à"
Range("A2").Select
Cells.Replace What:="à", Replacement:="a", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True
ActiveCell.FormulaR1C1 = "c"
Range("B2").Select
ActiveCell.FormulaR1C1 = "ã"
Range("A3").Select
Cells.Replace What:="ã", Replacement:="c", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True
usw.
Leider lassen sich die polnischen Buchstaben auch nicht über Strg+C/Strg+V direkt in den Quelltext einfügen, dabei kommen wiederrum nur die deutschen Buchstaben a, c, e... heraus.
Vielleicht hat jemand eine Idee,
STEFAN