Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Verzeichnis + Dateien nach Zellinhalt durchsuchen

Verzeichnis + Dateien nach Zellinhalt durchsuchen
Patrick
Hallo,
ich benötige bitte eure Hilfe.
Folgendes Problem treibt mich um:
Ich möchte ein festes Verzeichnis (c:\test - enthält nur xls.-Dateien) durchsuchen.
Und zwar möchte ich das bei allen enthaltenen Dateien überprüft wird, ob auf dem
Worksheet "Daten" in der Zelle G6 "DE" steht. Wenn nicht sollen diese Dateien in
einem Worksheet aufgelistet werden.
Ich hoffe meine Umschreibung ist verständlich.
Gruß
Patrick
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Verzeichnis + Dateien nach Zellinhalt durchsuchen
10.05.2011 14:57:44
Rudi
Hallo,
Sub xxxxx()
Dim strFile As String, strFormel As String, strTest
Dim oFiles As Object, arrFiles
Const strPath As String = "c:\test\"
Set oFiles = CreateObject("Scripting.Dictionary")
strFile = Dir(strPath & "*.xls")
Do While strFile  ""
strFormel = "'" & strPath & "[" & strFile & "]Daten'!r6c7"
strTest = ExecuteExcel4Macro(strFormel)
If Not IsError(strTest) Then
If strTest  "DE" Then oFiles(strFile) = 0
End If
strFile = Dir
Loop
With Sheets(1)
.Cells.Clear
If oFiles.Count > 0 Then
arrFiles = oFiles.keys
.Cells(1, 1).Resize(oFiles.Count) = WorksheetFunction.Transpose(arrFiles)
End If
End With
End Sub

Gruß
Rudi
Anzeige
AW: Verzeichnis + Dateien nach Zellinhalt durchsuchen
10.05.2011 15:42:43
Patrick
Hallo Rudi,
vielen Dank für den Code.
Leider funktioniert er nicht einwandfrei.
Diese Zeile "strTest = ExecuteExcel4Macro(strFormel)"
ruft immer einen Laufzeitfehler 1004 hervor.
Gruß
Patrick
AW: Verzeichnis + Dateien nach Zellinhalt durchsuchen
10.05.2011 16:40:46
Rudi
Hallo,
bei mir hat das funktioniert. Keine Ahnung, warum es bei dir nicht läuft.
Welchen Wert hat strTest?
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige