Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Import txt-file

Import txt-file
26.04.2005 10:25:56
Doris
Hallo Fachleute
Ich stehe mal wieder vor einem Problem, das ich ohne eure Hilfe nicht werde lösen können...
Ich habe ein txt-file mit folgender Struktur:
****
Betreff: Plauderei
Eintragstyp: Telefonanruf
Firma: Muster AG
Beginn: Di 26.04.2005 8:00
Ende: Di 26.04.2005 8:15
Dauer: 15 Minuten
Kontakte: Kermit Frosch; Miss Piggy
Kategorien: Geschäftspartner
****
Dann kommt der nächste Eintrag direkt darunter... nun möchte ich dieses File gerne in Excel importieren und zwar so, dass eine Tabelle (Liste) mit sämtlichen Eintragungen entsteht:
Spalte A = 'Beginn'
Spalte B = 'Dauer'
Spalte C = 'Eintragstyp'
Spalte C = 'Firma'
Spalte D = 'Kontakte'
Spalte E = 'Betreff'
Ein Klacks für euch, nicht wahr?!!! ;-))
Vielen Dank für die Hilfe und Grüsse
Doris

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import txt-file
26.04.2005 11:46:30
Reinhard
Hallo Doris,
wird aber eng in Spalte C *g, ungetestet:

Sub tt()
Close
zei =2
Open "c:\test.txt" For Input As #1
While Not EOF(1)
Input #1, a
Input #1, b
Input #1, c
Input #1, d
Input #1, e
Input #1, f
Cells(zei, 1) = a
Cells(zei, 2) = b
Cells(zei, 3) = c
Cells(zei, 4) = d
Cells(zei, 5) = e
Cells(zei, 6) = f
zei = zei + 1
Wend
Close
End Sub

Viele Grüße
Reinhard
AW: Import txt-file
26.04.2005 12:29:12
Doris
Hallo Reinhard
Vielen Dank für deine Bemühungen! Klappt schon beinahe... folgendes Problem habe ich jedoch noch und ich fürchte ich habe mich zu wenig klar ausgedrückt, sorry!
Die Daten werden jetzt aneinander gereiht ausgegeben. Mein Ziel ist folgendes
[Spaltenüberschriften]
A = Beginn | B = Dauer | C = Eintragstyp | usw.
[Resultate:]
-----
26.04.2005 | 15 Minuten | Telefonanruf | ...
-----
22.04.2005 | 60 Minuten | Meeting | ...
----
20.04.2005 | 10 Minuten | Besprechung | ...
...
Ich lege einen Auszug aus dem txt bei (https://www.herber.de/bbs/user/21726.txt
). Bitte beachte, dass ein Eintrag in der Regel mit dem Feld "Betreff" beginnt; wenn dieses keinen Wert enthält, fehlt dieses jedoch...

Gruss, Doris
Anzeige
Bitte noch mal hochladen !!!
26.04.2005 12:40:08
Heiko
Hallo
kann die Datei aus irgendwelchen Gründen nicht runterladen.
Vielleicht nochmal neu hochladen ?!
Gruß Heiko

PS: Rückmeldung wäre nett !
AW: Bitte noch mal hochladen !!!
26.04.2005 12:42:16
Doris
... schon passiert... siehe separaten treat!
Doris
AW: Import txt-file
26.04.2005 12:28:32
Heiko
Hallo Doris,
schlecht zu erklären darum anbei ne kleine Beispieldatei.
https://www.herber.de/bbs/user/21725.xls
Gruß Heiko

PS: Rückmeldung wäre nett !
AW: Import txt-file
26.04.2005 12:34:58
Doris
Wow! Heiko, das klappt soweit echt gut... ein klitzekleiner Schönheitsfehler existiert aber noch. Und zwar werden diejenigen Datensätze die teilweise Lückenhaft erfasst sind nicht ausgewiesen. Ich habe das schon vorhin für Reinhard ausgeführt und eine Muster-Quelldatei beigelegt (siehe oben).
Also wenn wir das noch hinkriegen, dann Prost!!!
:-) Grüsse, Doris
Anzeige
AW: Test-File (txt)
26.04.2005 13:01:54
Heiko
Hallo Doris,
dieser "kleine" Schönheitsfehler ist sehr viel komplizierter als du glaubst.
Da VBA nich hellsehen kann welche Einträge denn nun drin sind im Textfile, wird das eine komplizierte dynamische VBA Suchroutine, die sich nicht mal eben in der Mittagspause schriebt.
Vielleicht habe ich noch mal Lust mich damit zu beschäftigen, aber erstmal steige ich aus und markiere die Frage darum als offen.
Gruß Heiko
Anzeige
AW: Test-File (txt)
26.04.2005 14:08:31
Doris
oh sorry, wusste nicht, dass das riesig viel Aufwand bedeutet!!! Also wenn du nochmals lust hast, wäre das ganz super, ansonsten lebe ich mit dem was das Ding ausspuckt!
vielen Dank für deine Mühe!
Gruss, Doris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige