Re: Viele Dateien nach Zelleintrag durchsuchen
14.01.2003 00:24:07
Nepumuk
Hallo Thilo,
vorausgesetzt, dir ist der Name der Tabelle bekannt und die Zelle, in der der gesuchte Wert stehe, hilft dieses Programm. Benötigt ca. 3 Sekunden für einhundert Tabellen. Du musst nur noch den Pfad der zu den Dateien führt anpassen.Option Explicit
Public Sub Verzeichnis()
Dim Datei As String, Pfad As String, Tabelle As String
Dim Adresse As String, Suchbegriff As String
Application.ScreenUpdating = False
Adresse = Cells(1, 1)
Tabelle = Cells(1, 2)
Suchbegriff = Cells(1, 3)
On Error Resume Next
Pfad = "D:\Eigene Dateien\Eigene Tabellen\"
Datei = Dir(Pfad & "*.xls")
Do Until Datei = ""
Datei = Dir
If hole_Werte(Pfad, Datei, Tabelle, Adresse) = Suchbegriff Then
If Err.Number = 0 Then
Workbooks.Open Pfad & Datei
ThisWorkbook.Close False
End If
End If
Loop
MsgBox "Suchbegriff nicht gefunden", 64, "Information"
End Sub
Private Function hole_Werte(Pfad, Datei, Tabelle, Adresse)
Dim Argument As String
Argument = "'" & Pfad & "[" & Datei & "]" & Tabelle & "'!" _
& Range(Adresse).Range("A1").Address(, , xlR1C1)
hole_Werte = ExecuteExcel4Macro(Argument)
End Function
Wenn es einen Treffer landet, wird die Mappe automatisch geöffnet und das Suchprogramm geschlossen.
Gruß
Nepumuk