Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei einlesen - Umlaute -

Forumthread: Textdatei einlesen - Umlaute -

Textdatei einlesen - Umlaute -
18.04.2006 06:25:51
Michael
hallo an alle,
ich lese mit folgendem code eine textdatei via makro ein. dabei habe ich das problem das mir die umlaute nicht richtig angezeigt werden.
bsp.
verstõrkung
Pr³fbericht
Flõchen
wo liegt da der fehler?
hier der code:
Application.DisplayAlerts = False
Sheets("diff").Select
ChDir "C:\Import\"
Workbooks.OpenText Filename:="C:\Import\diff.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, semicolon:=False, _
comma:=False, Space:=False, other:=False, OtherChar:="|", FieldInfo:= _
Array(1, 1), TrailingMinusNumbers:=True
Windows("diff.txt").Activate
Cells.Select
Selection.Copy
Windows("Import.xls").Activate
Cells.Select
Range("B1").Activate
ActiveSheet.Paste
Range("B1").Select
Range("A1").Select
Windows("diff.txt").Activate
ActiveWindow.Close
Range("A1").Select
Application.DisplayAlerts = True
bye an alle
Michael
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei einlesen - Umlaute -
18.04.2006 10:06:23
Ramses
Hallo
Ohne deine Datei zu kennen probier mal anstelle
xlMSDOS
xlWindows
Vielleicht hilfts ja was.
Gruss Rainer
AW: Textdatei einlesen - Umlaute -
18.04.2006 12:29:12
Michael
hallo rainer
genau das war der fehler.
danke dir, und wünsche dir noch einen schönen tag
bye bye michael
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Textdatei einlesen in Excel: Umlaute richtig darstellen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul über Einfügen > Modul.

  3. Füge den folgenden Code ein, um die Textdatei einzulesen:

    Application.DisplayAlerts = False
Sheets("diff").Select
ChDir "C:\Import\"
Workbooks.OpenText Filename:="C:\Import\diff.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, semicolon:=False, _
comma:=False, Space:=False, other:=False, OtherChar:="|", FieldInfo:= _
Array(1, 1), TrailingMinusNumbers:=True
Windows("diff.txt").Activate
Cells.Select
Selection.Copy
Windows("Import.xls").Activate
Cells.Select
Range("B1").Activate
ActiveSheet.Paste
Range("B1").Select
Range("A1").Select
Windows("diff.txt").Activate
ActiveWindow.Close
Range("A1").Select
Application.DisplayAlerts = True

  4. Achte darauf, dass du Origin:=xlWindows anstelle von xlMSDOS verwendest, um das Problem mit den Umlauten zu beheben.

  5. Führe das Makro aus, um die Daten korrekt in Excel zu importieren.

Häufige Fehler und Lösungen

  • Umlaute werden falsch angezeigt:

    • Lösung: Stelle sicher, dass du Origin:=xlWindows im Code verwendest, wie bereits erwähnt. Dies sorgt dafür, dass die Umlaute korrekt interpretiert werden.

  • Datei lässt sich nicht finden:

    • Lösung: Überprüfe den Dateipfad und stelle sicher, dass die Datei diff.txt im angegebenen Verzeichnis vorhanden ist.

Alternative Methoden

Wenn das Einlesen der Textdatei über VBA nicht funktioniert, kannst du auch folgende Methoden ausprobieren:

  1. Direktes Importieren über Excel:

    • Gehe zu Daten > Daten abrufen > Aus Text/CSV.
    • Wähle die Datei aus und achte darauf, die richtigen Einstellungen für die Umlaute vorzunehmen.

  2. Verwendung von Power Query:

    • Gehe zu Daten > Abrufen und Transformieren > Aus Datei > Aus Text.
    • Power Query bietet eine benutzerfreundliche Oberfläche und kann die Umlaute oft besser verarbeiten.

Praktische Beispiele

Hier sind einige Beispiele für die Verwendung des Codes:

  • Bei der Datenanalyse von Prüfberichten oder Flächen kann das Einlesen von Textdateien mit Umlaute in Batch-Menüs entscheidend sein, um die Datenauswertung zu optimieren.
  • Wenn du regelmäßig Textdateien mit Umlauten importierst, speichere das Makro, um Zeit zu sparen.

Tipps für Profis

  • Makros optimieren: Vermeide unnötige Selektierungen im Code, um die Ausführung zu beschleunigen. Statt Cells.Select kannst du direkt mit den Zellen arbeiten.

  • Fehlermeldungen abfangen: Nutze On Error Resume Next, um mögliche Laufzeitfehler zu ignorieren und den Code stabiler zu machen.

  • Kommentare einfügen: Füge Kommentare in deinem Code hinzu, um die Schritte zu dokumentieren, was besonders bei komplexen Skripten hilfreich ist.

FAQ: Häufige Fragen

1. Warum werden meine Umlaute nicht richtig angezeigt?
Wenn du xlMSDOS verwendest, können Umlaute falsch interpretiert werden. Ändere dies in xlWindows.

2. Kann ich auch andere Dateiformate einlesen?
Ja, du kannst auch andere Formate wie .csv oder .txt einlesen, indem du die Workbooks.OpenText-Methode entsprechend anpasst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige