Hallo Formusleser,
Entschuldigung. Ich war letzte Woche erkrankt und komme erst heute zu einer Antwort auf meine Frage vom 27.11.2018 (siehe weiter unten)
*****************************************
Hier kommt nochmal die Frage, da ich auf die Originalfrage nicht mehr antworten kann:
Es geht um einen Makro, den ich von einem Kollegen geerbt habe. Aus SAP werden .txt Dateien generiert und auf ein Laufwerk bereit gestellt. Nun kommt mein Makro, holt sich diese .txt Dateien ab und hübscht sie ein bisschen auf. Funktionierte auch alles super, bis wir ein SAP-Update hatten...
Nun werden aus Umlauten komische Zeichen generiert.
Beispiel:
ö= ö
ü= ü
ä= ä
Ü= Ü
Ich glaube im folgenden Code muss ich etwas anpassen?
.........................
Dim intFNr As Integer
Dim strZeile As String
intFNr = FreeFile()
strFileName = Trim(strFileName)
Open strFileName For Input As #intFNr
lngZeile = lngRow
Rows(lngZeile).Select
Selection.RowHeight = 20
lngZeile = lngZeile + 1
Do While Not EOF(intFNr)
Line Input #intFNr, strZeile
strZeile = Trim(strZeile)
Do While Right(strZeile, 1) = Chr(10)
strZeile = Left(strZeile, Len(strZeile) - 1)
Loop
....................
Ich hoffe, ihr habt eine Idee? Es gibt doch bestimmt eine elegantere Lösung als Replace? ;)
Danke und Grüße
Karin aus Hamburg
Hallo Karin,
Frage hierzu. Ist es nicht einfacher, die Daten aus SAP direkt in eine Excel Datei anstatt in eine .txt zu konvertieren? Wenn die Daten dann eh mit Excel weiterverarbeitet werden, ist das viel einfacher. Wir in unserer Firma machen das jedenfalls so.
Gruss Torsten
@Torsten: Danke für Deine Antwort, aber das ist bei uns leider nicht umsetzbar.
Super, erst ne Frage stellen und dann nicht mal mehr reagieren
@Torsten: Ja sorry, man darf eben nicht krank werden...