TXT auslesen wenn.......

Guten Morgen,
zum Silvester :
Heute will ich´s wagen
euch eine Frage anzutragen.
Ein Text-file will ich lesen
und das Ganze ohne großes Wesen
Die Datei ward mehr als 100.000 Zeilen lang
bei ihrem Anblick ward´s mir Angst und Bang.
Alles lesen - ja das braucht Zeit und mit
so viel Daten komm´ich auch nicht weit.
Nur bestimmte Zeilen sollen´s sein
doch mein Excel Know-How sagte : NEIN
Drum frag´ich euch : Was muß ich sagen,
will ich nur diejenigen Zeilen haben
die im ersten, zweiten, oder dritten Feld
den Wert haben, den ich suche.
Die Lösung mir zu sagen ist sicher nicht die Welt
ich suchte schon hier und in manchem Buche.
Drum helft mir bitte - sagt mir wie ich´s mache
damit auch ich heut´abend fröhlich lache.
Genug der Schüttelreime ;-)))
Wie kriege ich´s hin aus einer TXT nur die
Zeilen auszulesen, in deren erster Spalte
z.B. einer bestimmte Artikelnummer und in
der zweiten oder dritten Spalte, ein ganz
bestimmter Kunde steht, der den Artikel
geliefert bekam ?
Das gesamte txt-file einlesen kann ich ja.
Nur die Bedingung kriege ich nicht gebacken.
Frohes Neues 2005 euch allen !!
R.Schmitt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tt() Dim zei As Long Dim datnr As Integer Dim Satz As String Dim Wort1 As String, Wort2 As String Wort1 = "Müller" Wort2 = "Hemd" zei = Range("A65536").End(xlUp).Row datnr = FreeFile Open "C:\temp\test.txt" For Input As #datnr Input #datnr, Satz 'Überschrift Cells(zei, 1) = Satz While Not EOF(datnr) Input #datnr, Satz If InStr(Satz, Wort1) > 0 And InStr(Satz, Wort2) > 0 Then zei = zei + 1 Cells(zei, 1) = Satz End If Wend Close #datnr End Sub

Hallo Reinhard,
entweder über Daten---TextinSpalten oder so:


Sub ze()
For n = 1 To 4
Range(Cells(n, 1), Cells(n, 4)) = Split(Cells(n, 1), Chr(9))
Next n
End Sub

Die Routine kann man auch in das Hauptmakro einbauen, wie nachfolgend gezeigt.
Gruß
Reinhard


Sub tt()
Dim zei As Long
Dim datnr As Integer
Dim Satz As String
Dim Wort1 As String, Wort2 As String
Wort1 = "Müller"
Wort2 = "Hemd"
zei = Range("A65536").End(xlUp).Row
datnr = FreeFile
Open "C:\Beispiel.txt" For Input As #datnr
Input #datnr, Satz 'Überschrift
Cells(zei, 1) = Satz
While Not EOF(datnr)
Input #datnr, Satz
If InStr(Satz, Wort1) > 0 And InStr(Satz, Wort2) > 0 Then
zei = zei + 1
Cells(zei, 1) = Satz
End If
Wend
Close #datnr
For n = 1 To zei
Range(Cells(n, 1), Cells(n, 4)) = Split(Cells(n, 1), Chr(9))
Next n
End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread