Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei in Excel importieren

Forumthread: Textdatei in Excel importieren

Textdatei in Excel importieren
03.10.2005 14:08:51
Karin
Hallo zusammen
Ich habe ein .txt File mit 70'000 Zeilen, dass ich ins Excel importieren möchte. Ich brauche von diesen 70'000 Zeilen aber nur 30'000 mir einem bestimmten Spalteninhalt. Frage: Kann ich beim Makro zum importieren schon angeben dass ich nur die Zeilen möchte in der "Transaktion" steht, und der rest wird schon gar nicht ins Excel importiert.
Danke und Gruss
Karin
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei in Excel importieren
03.10.2005 14:28:48
schauan
Hallo Karin,
klar geht das. Was hast Du denn für ein Makro? Poste es mal, dann ändern wir das.
AW: Textdatei in Excel importieren
03.10.2005 15:07:50
Karin
Hallo schauan
Hier das Makro:
Public 

Sub MBS_laden()
Dim strFilename As String
Dim Pfad$
Dim dtmFaktDatum As Date
Dim lngBankBCNR As String
Dim strBankName As String
Dim strBankOrt As String
Dim lngI As Long 'Zähler
strFilename = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If strFilename <> "Falsch" Then
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFilename, Destination:=Range("A1"))
.Name = "MBS"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 28592
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End If
End Sub


Danke
Anzeige
AW: Textdatei in Excel importieren
03.10.2005 17:11:42
schauan
Hallo Karin,
da brauchen wir was ganz anderes:


Sub Text_auslesen()
'programmiert von schauan 20051003
'keine Prüfung auf Anzahl Datensätze > Anzahl Zeilen
Dim TextZeile$, TrennZeichen$, SuchWort$, TextArray
Dim StartZeile& 'Long
TrennZeichen = ";"
StartZeile = 1 ' erste Zeile in die Daten importiert werden
SuchWort = "Transaktion"
Open "e:\test\Test.txt" For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, TextZeile ' Zeile lesen.
If InStr(TextZeile, SuchWort) = 0 Then 
'nur importieren wenn Suchwort nicht vorhanden
  TextArray = Split(TextZeile, TrennZeichen) 
'Trennen der TextZeile (ab XL2000)
  Range(Cells(StartZeile, 1), Cells(StartZeile, UBound(TextArray) + 1)) = TextArray
  StartZeile = StartZeile + 1 'Zeile 1 erhöhen
End If
Loop
Close #1 ' Datei schließen.
End Sub


     Code eingefügt mit Syntaxhighlighter 4.0

Anzeige
AW: Textdatei in Excel importieren
04.10.2005 16:31:24
Karin
Hallo schauan
Das klappt ja super!! Danke!
Habe aber noch eine Frage: du hast einen fixen Pfad mit Dateiname angegeben, da
aber das File monatlich in einem anderen Monatatsordner liegt muss ich auslesen können
von wo ich dieses File nehme. Wie muss ich den Code dafür ändern?
Danke und Gruss
Karin
Anzeige
AW: Textdatei in Excel importieren
04.10.2005 17:18:15
schauan
Hallo Karin,
z.B. mit Hilfe einer Zelle:
Open Sheets("Tabelle1").Range("E1") For Input As #1 ' Datei öffnen.
;

Forumthreads zu verwandten Themen

Textdatei in Excel importieren und umgestalten.
Pascal

Hallo allerseits
Dank Diesem tollen Code hier unten, welchen ich übrigens hier im Forum erhalten hatte versuche ich eine komplizierte Textdatei im Excel umzugestalten.
Die Textdatei ist sehr gross und hat folgende Inhalte:
Aufteiler 0000265614 ,Position 00010
Bestellposition für...
18.09.2008 13:18:02
Thread-ID: 1010721
4 Beiträge
Anzeige
Dateipfad einlesen und Datei importieren
Daniel

Hallo Leute,
ich möchte eine Datei importieren, deren Pfad ich in einer Zelle angebe. Diese Datei soll in die geöffnete Excel Mappe importiert werden. Ich habe ein Makro aufgezeichnet aber es ist beweglich wie ein Stein.
Vielleicht reicht schon ein Befehl wie ich in dem Makro den Datei...
06.03.2009 10:55:26
Thread-ID: 1057204
15 Beiträge
Dateinamen in Excel-Liste importieren
konti83

Guten Morgen zusammen,
ich habe ein kleines Problem. Ich habe mir ein kleines Programm geschrieben mit der alle Dateienamen aus einem Verzeichnis ausgelesen werden und dann untereinander in ein Tabellenblatt einsortiert werden. Zusätzlich wird beim Wechsel des Anfangsbuchstabens dieser eine...
31.03.2009 08:44:48
Thread-ID: 1065491
3 Beiträge
zwei Textdateien in eine Excel-Datei importieren
erick

Moin,
ich importiere mit beigefügtem Makro eine Datei (C:\Drucke\SUB\bis2000.dfu)
Die Zeilenanzahl ist variabel.
Jetzt möchte/muss ich in die gleiche Datei Daten aus einer weiteren Datei ((C:\Drucke\SUB\ab2000.dfu) gleicher Aufbau) importieren.
Ich möchte die Daten der 2ten Da...
03.04.2009 09:18:19
Thread-ID: 1066570
2 Beiträge
Textdateien in Excel importieren
Benni

Hallo,
ich muss mehrere Textdateien in Excel öffnen (mit den gleichen Importeinstellungen) und möchte anschliebend alle in eine Datei mit den jeweils einzelnen Reitern (Tabelle1, Tabelle2 usw.) kopieren.
Die Auswahl der Textdateien soll über ein Fenster erfolgen, in dem die zu importier...
26.06.2009 11:12:46
Thread-ID: 1084519
11 Beiträge
Anzeige
CSV-Datei gesplittet in Excel importieren
Lennart

Hallo zusammen,
ich bin auf ein (für mich ;-)) größeres Problem gestoßen und konnte dies auch nicht durch Googeln etc. lösen. Folgendes: Ich exportiere aus einem Programm eine Liste mit Namen als CSV-Datei. Diese Namen stehen komplett in einer Spalte. Wenn ich nun meine Excel-Datei mit dies...
06.07.2009 23:23:38
Thread-ID: 1086804
7 Beiträge
Inhalt einer Datei aus dem Internet importieren
fraubi

Hi,
ich versuche, den Inhalt einer TXT-Datei, die ich auf meinem Webserver habe, in Excel zu importieren. Die TXT-Datei enthält nur eine einzige Zahl. Beim Import ist es mir wichtig, dass der Dateiinhalt immer in der gleichen Zelle im gleichen Tabellenblatt landet.
Ich habe schon über d...
19.09.2009 23:47:36
Thread-ID: 1104156
3 Beiträge
Mehrere .csv Dateien in Spaltenform importieren
Matthias

Hallo,
Ramses hatte im November 2006 das untenstehende Makro veröffentlicht, das mehrere .csv-Dateien gleichzeitig importiert (Link: https://www.herber.de/forum/archiv/820to824/t822222.htm)
In diesem Makro werden die Inhalte der csv-Dateien untereinander angehängt.
Wie muß ich da...
15.10.2010 19:16:06
Thread-ID: 1182623
5 Beiträge
importieren aus einer txt datei
jhaustein

hallo gemeinschaft
beim import aus einer txt datei habe ich probs beim import der preise
sie werden trotz der einstellung text beim portieren immer als dateum dargestellt und ich bekomme trotz umstellung auf text in den eigenshcaften den preis nicht hin
05.11.2010 16:23:48
Thread-ID: 1185348
2 Beiträge
Dateienamen in Excel Liste importieren
Andreas

Hallo,
nach der schnellen Hilfe gestern habe ich hier noch eine Frage.
Um Dateinamen aus einem Ordner auszulesen und spaeter umzubenennen verwende ich die unten gezeigten Prozeduren.
Der Zielordnerpfad und Name sind jeweils im Code festgeschrieben. Kann man dies variabel gestalten i...
16.12.2010 15:46:53
Thread-ID: 1191810
4 Beiträge
Textdatei mit 'Endloswurm' in Zeilen importieren
Jens

Hallo Forengemeinde,
ich kämpfe mit einem Problem, das mir eigentlich simpel erscheint, sich jedoch erschreckend kniffelig zeigt.
Ich möchte per Makro eine Textdatei importieren. Diese enthält eine kilometerlange Zeile mit Daten (falls es nutzt: es handelt sich um Daten nach EDIFACT-Sta...
18.01.2011 13:42:23
Thread-ID: 1196174
6 Beiträge
CSP Dateien in Excel Importieren
NewtonZ4

Hallo Zusammen,
ich habe in einem Ordner (C:\Import) insgesamt 9 CSP Dateien. Die Dateien enthalten Excel Daten.
Ich möchte jetzt per VBA die Dateien automatisch in eine Excel Datei importieren.
Jede importierte Datei bekommt ihr eigenes Blatt, welches den Namen der Import Datei bek...
01.03.2011 22:17:01
Thread-ID: 1203777
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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