Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Notepad-Datei (.txt) öffnen, alles kopieren

Forumthread: Notepad-Datei (.txt) öffnen, alles kopieren

Notepad-Datei (.txt) öffnen, alles kopieren
Karsten
Hallo Excelprofis,
ich möchte Daten aus einer Textdatei in Excel verwenden. Ich möchte dies aber explizit nicht über die Importfunktion machen.
Kann ich per VBA eine Textdatei öffnen (z.B. über Notepad), dort dann alles markieren, in die Zwischenablage kopieren, Notepad schließen und im Exceltabellenblatt einfügen?
Wenn ja, kann mir jemand einen Tip geben?
Anzeige
AW: Notepad-Datei (.txt) öffnen, alles kopieren
23.11.2011 12:48:08
Rudi
Hallo,
ohne Notepad etc: 
Sub txt()
Dim sDaten
Open "c:\test\test.txt" For Input As #1
sDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
Sheets(1).Cells(1, 1).Resize(UBound(sDaten) + 1) = sDaten
End Sub

Gruß
Rudi
AW: Notepad-Datei (.txt) öffnen, alles kopieren
23.11.2011 13:14:20
Karsten
Vielen Dank Rudi, für die superschnelle Antwort. Das ganze sieht sehr vielversprechend aus.
Wenn ich die Prozedur ablaufen lassen, dann wird aber nur die erste Zeile der Textdatei kopiert und in die Zellen der Spalte A eingefügt.
Ich muss die gesamte Textdatei markieren, in die Zwischenablage kopieren, und dann in Tabelle 1 einfügen. Wenn ich diese Schritte per Hand mache, funktioniert das alles klasse. Jeder Wert der Textdatei ist in der entsprechenden Zelle in Excel.
Anzeige
AW: Notepad-Datei (.txt) öffnen, alles kopieren
23.11.2011 13:16:50
Rudi
Hallo,
Jeder Wert der Textdatei ist in der entsprechenden Zelle in Excel.
Hat die irgendwelche Trennzeichen? Tab?
Kannst du eine .txt hochladen?
Gruß
Rudi
AW: Notepad-Datei (.txt) öffnen, alles kopieren
23.11.2011 13:20:40
Karsten
Ich hab mal die Datei hochgeladen:
https://www.herber.de/bbs/user/77619.txt
Anzeige
AW: Notepad-Datei (.txt) öffnen, alles kopieren
23.11.2011 13:54:44
Rudi
Hallo,
da sieht man doch gleich klarer. 
Sub txt()
Dim sDaten, vntTmp, lngR As Long
Application.ScreenUpdating = False
Open "c:\test\77619.txt" For Input As #1  'anpassen
sDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 0 To UBound(sDaten) - 1
vntTmp = Split(sDaten(lngR), vbTab)
Sheets(1).Cells(lngR + 1, 1).Resize(, UBound(vntTmp) + 1) = _
WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntTmp))
Next
End Sub

Gruß
Rudi
Anzeige
AW: Notepad-Datei (.txt) öffnen, alles kopieren
23.11.2011 14:32:01
Karsten
Wow!!!
Funzt klasse.
Herzlichen Dank für diesen extrem guten Service.
Gruß
Karsten
;

Forumthreads zu verwandten Themen

.txt Datei in eine besthende Excel-Mappe "öffnen"
PaKierdorf

Hallo liebe Community,
wenn man in Excel eine .txt-Datei öffnet, kann man direkt per Trennzeichen den Ihnalt in Spalten aufteilen.
Jetzt würde ich genau diesen Vorgang gerne in eine bestehnde Excel-Mappe einfügen. Also angenommen ich habe ein Arbeitsblatt "Importdatei". Auf diesem Arbei...
01.10.2013 09:09:33
Thread-ID: 1332744
3 Beiträge
txt.datei in Excel öffnen Leerzeichen löschen etc
B. Varli
HI leute,
ich hab ne text Datei die ich hochladen werde.
Ich würde gerne die txt.Datei mit VBA in Excel öffnen und die Leerzeichen löschen.
Ich hab ein Vorher nacher beispiel so wie es in Excel aussehen soll.
https://www.herber.de/bbs/user/91573.xls So soll es aussehen
https://w...
18.07.2014 15:27:36
Thread-ID: 1371103
4 Beiträge
Anzeige
TXT Dateien öffnen
Christoph

Hallo ich habe folgendes Problem
ich möchte gerne mehrere TXT-Dateien importieren.
Habe folgendes mit den Recorder aufgenommen. Sub Makro32() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\acer\Desktop\512801200\Einnahmen\report.txt", Destination:= _ Range("$A$1")) .Comm...
20.09.2015 10:00:33
Thread-ID: 1448287
9 Beiträge
.txt Dateien nacheinander öffnen
Philipp

Hallo,
ich habe in einen Order C:\VBA\ mehrere Textdatein. Die erste Datei soll geöffnet, der Inhalt _ in das aktive Tabellenblatt beginnned in Zeile A1 geschreiben werden, dann folgt eine Bearbeitung des Tabellenblattes durch ein bestehendes Makro und jetzt soll die nächste Textdatei geöf...
11.02.2019 11:45:59
Thread-ID: 1674736
5 Beiträge
Anzeige
txt.-Datei mit Variierenden Namen öffnen
Fabian

Hallo liebes Forum,
nachdem mir hier neulich schon sehr geholfen wurde, wende ich mich nochmal an euch.
Ich habe folgendes Problem:
Ich muss im Rahmen eines Studiumprojektes Wetterdaten vom DWD runterladen, die zip.-Datei _
entpacken und darin eine bestimmte .txt Datei öffnen...
04.12.2019 13:51:29
Thread-ID: 1727190
3 Beiträge
txt-Datei importieren mit Öffnen-Dialog
Robin

Hallo,
Ich möchte eine Txt-Datei in Excel importieren über den Legacy-Textkonvertierungsassistenten mit einem Datei-Öffnen-Dialog. Dies habe ich versucht, in VBA zu implementieren.
Sub RohdatenEinlesen()
Dim FLC_Datei As Variant
ThisWorkbook.Worksheets.Add.Name = "Rohdaten"
...
27.07.2020 18:21:36
Thread-ID: 1774081
2 Beiträge
txt-Datei importieren mit Öffnen-Dialog
Robin

Hallo,
Ich möchte eine Txt-Datei in Excel importieren über den Legacy-Textkonvertierungsassistenten mit einem Datei-Öffnen-Dialog. Dies habe ich versucht, in VBA zu implementieren.
Sub RohdatenEinlesen()
Dim FLC_Datei As Variant
ThisWorkbook.Worksheets.Add.Name = "Rohdaten"
...
27.07.2020 18:28:35
Thread-ID: 1774083
2 Beiträge
txt-Datei importieren mit Öffnen-Dialog
Robin

Hallo,
Ich möchte eine Txt-Datei in Excel importieren über den Legacy-Textkonvertierungsassistenten mit einem Datei-Öffnen-Dialog. Dies habe ich versucht, in VBA zu implementieren.
Sub RohdatenEinlesen()
Dim FLC_Datei As Variant
ThisWorkbook.Worksheets.Add.Name = "Rohdaten"
...
27.07.2020 18:37:58
Thread-ID: 1774084
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Daten aus einer .txt-Datei in Excel importieren

Schritt-für-Schritt-Anleitung

Um eine .txt-Datei in Excel zu öffnen und alle Daten zu kopieren, kannst du den folgenden VBA-Code verwenden. Dieser Code öffnet die Textdatei, liest den Inhalt und fügt ihn in eine Excel-Tabelle ein.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Kopiere den folgenden VBA-Code in das Modul:

Sub txtDateiOeffnen()
    Dim sDaten, vntTmp, lngR As Long
    Application.Screen

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige