Makro aus Excel-FAQ funktioniert bei mir nicht

Bild

Betrifft: Makro aus Excel-FAQ funktioniert bei mir nicht
von: Josef
Geschrieben am: 02.12.2003 21:21:03

Hallo!

Ich habe folgendes Makro in der Excel-FAQ gefunden.Was müßte ich hier beachten, damit es richtig funktionert?
Eine Textdatei erstellte ich bereits,welche im gleichen Ordner wie die Exceldatei mit dem Makro vorhanden ist.
Ich komme leider nicht darauf,was ich falsch mache.

Danke

Josef


Sub GrepText()
   Dim fs As FileSearch
   Dim lRow As Long, lFile As Long
   Dim iCounter As Integer
   Dim sDir As String, sTxt As String, sBegriff As String
   Application.ScreenUpdating = False
   sDir = Range("H1").Value
   sBegriff = Range("H3").Value
   Columns("A").ClearContents
   Set fs = Application.FileSearch
   With fs
      .LookIn = sDir
      .FileName = Range("H2").Value
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         lFile = lFile + 1
         If lFile Mod 100 = 0 Then Application.StatusBar = _
            "Bearbeite Datei " & lFile & "..."
         Open .FoundFiles(iCounter) For Input As #1
         Do Until EOF(1)
            Line Input #1, sTxt
            If InStr(sTxt, sBegriff) Then
               lRow = lRow + 1
               Cells(lRow, 1).Value = sTxt
            End If
         Loop
         Close
      Next iCounter
   End With
   Application.StatusBar = False
   Application.ScreenUpdating = True
End Sub

Bild


Betrifft: Was willst du denn erreichen....
von: Ramses
Geschrieben am: 02.12.2003 21:55:24

Hallo

... das Makro liest die Daten aus einem Textfile ein.
Aber die Frage ist ja:

"...Ich komme leider nicht darauf,was ich falsch mache....."

Was willst du denn ?

Als weiterführende Alternative schau mal hier vorbei

http://www.office.gmxhome.de/_excel_vba_externe_daten.htm


Gruss Rainer


Bild


Betrifft: AW: Was willst du denn erreichen....
von: Josef
Geschrieben am: 02.12.2003 22:10:39

Hallo Rainer!

Habe die Lösung in der Zwischenzeit gefunden:

H1: C:\Download\Test
H2: *.txt
H3: Suchwert eingeben

Gesuchte Lösung:

Aus allen Textdateien in einem Ordner einen bestimmten Wert suchen und Zeile eintragen.

Danke für Deine Antwort


Josef


Bild


Betrifft: Geschlossen Merci o.T.
von: Ramses
Geschrieben am: 02.12.2003 22:12:08

...


Bild

Beiträge aus den Excel-Beispielen zum Thema " Arbeitsblatt über Button öffnen"