Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
984to988
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zeilen aus TXT Datei einlesen

Bestimmte Zeilen aus TXT Datei einlesen
16.06.2008 10:57:28
Andre´
Hallo alle zusammen,
ich möchte bestimmte Zeilen aus einer TXT Datei hier ein Bsp.: https://www.herber.de/bbs/user/53127.txt
einlesen, wo der Pfad in der Tabelle Namens Pfad in der Zelle A1 vorgegeben ist.
Pfad

 ABC
1C:\einlesen.txt  
2 AnfangsdatumEnddatum
3 10.06.200815.06.2008


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Die erste Zeile aus der TXT Datei muss mit der Zelle B3 übereinstimmen und die letzte einzulesende Zeile muss mit der Zelle C3 übereinstimmen. Diese Daten sollen in das Blatt Einlesen beginnend ab C3 eingelesen werden.
So müssten die Werte in dem Blatt Einlesen zu finden sein:
Einlesen

 CDEF
310.06.200810:00:36ZUGANG10
410.06.200810:00:37ZUGANG11
510.06.200810:00:38ZUGANG12
610.06.200810:00:39ZUGANG13
710.06.200810:00:40ZUGANG14
810.06.200810:00:41ZUGANG15
916.06.200810:00:42ZUGANG16
1017.06.200810:00:43ZUGANG17
1118.06.200810:00:44ZUGANG18
1219.06.200810:00:45ZUGANG19
1320.06.200810:00:46ZUGANG20
1421.06.200810:00:47ZUGANG21
1522.06.200810:00:48ZUGANG22
1623.06.200810:00:49ZUGANG23
1724.06.200810:00:50ZUGANG24
1825.06.200810:00:51ZUGANG25
1926.06.200810:00:52ZUGANG26
2027.06.200810:00:53ZUGANG27
2128.06.200810:00:54ZUGANG28
2229.06.200810:00:55ZUGANG29
2330.06.200810:00:56ZUGANG30
2401.07.200810:00:57ZUGANG31
2502.07.200810:00:58ZUGANG32
2603.07.200810:00:59ZUGANG33
2704.07.200810:01:00ZUGANG34
2805.07.200810:01:01ZUGANG35
2906.07.200810:01:02ZUGANG36
3007.07.200810:01:03ZUGANG37
3108.07.200810:01:04ZUGANG38
3208.07.200810:01:05ZUGANG39
3308.07.200810:01:06ZUGANG40
3408.07.200810:01:07ZUGANG41
3508.07.200810:01:08ZUGANG42
3608.07.200810:01:09ZUGANG43
3714.07.200810:01:10ZUGANG44
3815.07.200810:01:11ZUGANG45


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Die ersten 10 Zeichen (Datumsformat) jeder Zeile in der TXT Datei sind immer aufsteigend angeordnet.
Ich hoffe mir kann jemand helfen und bedanke mich im voraus!
MFG Andre

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeilen aus TXT Datei einlesen
16.06.2008 11:54:00
Rudi
Hallo,
ungetestet:
Sub TextEinlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 4, 1 To 1) iFree = FreeFile lngStart = Range("B3") * 1 lngEnde = Range("C3") * 1 Open Range("A1") For Input As iFree Do While Not EOF(iFree) Line Input #iFree, strText arrTmp = Split(strText, ";") Select Case arrTmp(0) * 1 Case Is >= lngStart, Is
Gruß
Rudi

AW: Bestimmte Zeilen aus TXT Datei einlesen
16.06.2008 13:39:00
Andre´
Hallo Rudi,
erstmals vielen Dank für deine Antwort. Der Code bleibt in folgender Zeile hängen.
Userbild
Ich habe auch mal die *1 entfernd und den Code laufen lassen. Er hat mir dann alle 62 Zeilen eingelesen.
Kannst du mir bitte weiter helfen!
MFG Andre

Anzeige
AW: Bestimmte Zeilen aus TXT Datei einlesen
16.06.2008 14:01:32
Rudi
Hallo,
diesmal getestet:

Sub TextEinlesen()
Dim iFree As Integer, strText As String, arrTmp, arrDaten()
Dim lngCounter As Long, lngStart As Long, lngEnde As Long
ReDim arrDaten(1 To 4, 1 To 1)
iFree = FreeFile
lngStart = Range("B3")
lngEnde = Range("C3")
Open Range("A1") For Input As iFree
Do While Not EOF(iFree)
Line Input #iFree, strText
arrTmp = Split(strText, ";")
Select Case CDate(arrTmp(0))
Case lngStart To lngEnde
lngCounter = lngCounter + 1
ReDim Preserve arrDaten(1 To 4, 1 To lngCounter)
arrDaten(1, lngCounter) = CDate(arrTmp(0))
arrDaten(2, lngCounter) = (arrTmp(1))
arrDaten(3, lngCounter) = arrTmp(2)
arrDaten(4, lngCounter) = arrTmp(3) * 1
End Select
Loop
Close iFree
With Sheets(2)
.Cells.ClearContents
.Range("a1").Resize(lngCounter, 4) = WorksheetFunction.Transpose(arrDaten)
.Columns(1).NumberFormat = "DD.MM.YYYY"
.Columns(2).NumberFormat = "h:mm:ss"
End With
End Sub


Gruß
Rudi

Anzeige
AW: Bestimmte Zeilen aus TXT Datei einlesen
16.06.2008 14:19:00
Andre´
Hallo Rudi,
jetzt bekomme ich nur die 6 Zeilen die mit den 10.06.2008 beginnen :-(((
zurück.
Hast du eine Idee?
MFG Andre

AW: Bestimmte Zeilen aus TXT Datei einlesen
16.06.2008 14:34:00
Rudi
Hallo Tino,
die Schleife ist überflüssig.

For spText = 0 To UBound(meText)
Cells(meRow, spText + 1).Value = meText(spText)
Next spText


geht auch so:


Cells(meRow, 1).Resize(, UBound(meText) + 1) = meText


Gruß
Rudi

Anzeige
AW: Bestimmte Zeilen aus TXT Datei einlesen
16.06.2008 14:48:13
Tino
Hallo Rudi,
genau, hast recht.
Gruß Tino

Fehler von mir
16.06.2008 14:27:41
mir
Hallo Rudi,
als Enddatum Zelle C3 hatte ich den 15.06.2008. Ich hatte jetzt mit dem 15.07.2008 gerechnet, deshalb auch nur die Werte vom 10.06.2008.
Nochmals DANKE für deine großartige Hilfe!
MFG Andre

302 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2