Anzeige
Archiv - Navigation
1024to1028
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
Textdatei importieren in Excel
16.11.2008 15:18:27
Edie
Hallo zusammen,
habe im Archiv nachfolgende Code gefunden, dabei werden Suchwörter aus einer
Textdatei eingelesen. Es funktioniert auch, wenn das Suchwort am
Anfang der Zeile steht. Als Beispiel: Grafikchip;10.10.2008;1;2 wird die
ganze Zeile eingelesen, wenn aber das Suchwort Grafikchip an zweiter
Stelle nach dem Semikolon z.B. 10.10.2008;Grafikchip;1;2 steht wird die Zeile nicht mehr eingelesen.

Private Sub cmdImport_Click()
Dim TextZeile$, TrennZeichen$, SuchWort$, TextArray
Dim StartZeile& 'Long
TrennZeichen = ";"
StartZeile = 1 ' erste Zeile in die Daten importiert werden
SuchWort = TextBox1.Text
Open ThisWorkbook.Path & "\Test.txt" For Input As #1
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, TextZeile ' Zeile lesen.
If InStr(TextZeile, SuchWort) = 1 Then
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
On Error Resume Next
Loop
Close #1 ' Datei schließen.
End Sub


Kann mir dabei geholfen werden? Wie sollte ich den Code anpassen damit der zweite
Begriff nach dem Semikolon gesucht wird?
Vielen Dank im Voraus.
Grüße

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If InStr(TextZeile, SuchWort) > 0 Then ...
16.11.2008 15:44:00
Backowe
AW: If InStr(TextZeile, SuchWort) > 0 Then ...
16.11.2008 15:50:00
Tino
Hallo,
oder auch
If TextZeile Like "*" & SuchWort & "*" Then
Zu beachte sind die Platzhalter *
Gruß Tino
Danke Backoew, Danke Tino es funktioniert
16.11.2008 15:57:04
Edie
Hallo Backowe,
Hallo Tino,
vielen herzlichen Dank, beides funktioniert.
Grüße
Sorry! Backowe so ist es richtig
16.11.2008 16:07:54
Edie
Vielen Dank.
@Edie, Gegenfrage
16.11.2008 16:34:20
Tino
Hallo,
nur aus eigeninterresse,
heiß dies nun das der Like-Operator nicht funktioniert bei Dir?
Gruß Tino
AW: @Edie, Gegenfrage
16.11.2008 17:34:00
Edie
Hallo Tino,
ich habe ja geschrieben: Beide Optionen funktionieren.
Vielen Dank.
PS: Ich habe den Name Backowe nicht korrekt wiedergeben d.h. der Nachtrag
Grüße
AW: @Edie, Gegenfrage
16.11.2008 17:53:00
Tino
Hallo,
der Fehler im Namen ist mir auch nicht aufgefallen.
Hätte ja sein können, dass diese Funktion aus irgendeinen Grund nicht funktioniert und daher auch die Nachfrage.
Wünsche noch einen schöner Sonntagabend!
Gruß Tino
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige