Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

306 Forumthreads zu ähnlichen Themen

mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Anzeige
Tabellenblätter nach Datum durchsuchen
Markus

Hallo zusammen,
ich habe angefügte Datei erstellt.
Jetzt möchte ich das sich das Blatt "Tabelle1" aus den anderen Blättern mit Daten füllt.
Und zwar soll beispielsweise nach dem Datum in Tabelle1 in A4 in den anderen Blättern gesucht werden. Das Datum steht auf den anderen Blättern...
25.09.2009 10:24:50
Thread-ID: 1105395
2 Beiträge
Suchen das nächste zurückligende Datum
edie

Hallo zusammen,
ich suche eine Möglichkeit, per VBA wenn’s geht, das annähernd nächste zurückliegende Datum aus einer Datumsreihe zu suchen bzw. finden und das Datum und die entsprechend Werte zu kopieren.
Hier im Beispiel: Wenn in Zelle F1 der Tabelle 2 das Datum 16.01.2010 steht, dann...
28.02.2010 16:23:33
Thread-ID: 1142113
8 Beiträge
Anzeige
Spalte nach Datum durchsuchen u danach Filtern
Marta

Hey Leute,
stehe vor meinem nächsten Problem. Nur leider fällt mir im Moment gar kein Lösungsweg ein, nicht einmal Ansatzweise.
Also das Szenario sieht folgendermaßen aus:
Ich habe eine Spalte mit verschiedenen Datumsangaben ab August 2009. Diese Spalte wird jeden Monat mit dem aktu...
03.08.2010 14:32:53
Thread-ID: 1170220
9 Beiträge
Suchen nach Datei
Karsten

Hallo...
ich möchte über Excel nach einer bestimmten Datei suchen.
in A1 steht der Pfad (z.B. C:\)
in A2 möchte ich den Suchtext eingeben (z.B. Schnee)
in A3 und darunter sollen alle Suchergebnisse aufgelistet werden, welche in diesem Zusammenhang gefunden wurden (z.B. Schneeba...
22.12.2010 21:23:16
Thread-ID: 1192594
8 Beiträge
Code Hilfe Bild suchen nach Datei
amintire

Hallo liebe Excel Freunde,
benötige eine Code Hilfe. Soweit funktioniert das ganze auch.
Wenn ich SpinButton betätige zeigt er mir die Bilder an die im Laufwerk abgelegt sind,
würde aber gerne auch nach einem Bild im Laufwerk suchen können,
wenn ich den Pfad eingebe er mir sozu...
08.04.2011 10:32:19
Thread-ID: 1209577
12 Beiträge
Nachdatum suchen und in entsprechende Tabelle kopi
Choppy_76

Hallo zusammen,
Ich habe eine Tabelle mit 6 Spalten. In Spalte A wird automatisch immer das heutige Datum eingetragen wenn sich in Spalte B was ändert. Nun sollen die Eingaben ab Zeile 2 der Spalte A,B,C,D,E,F soweit die Zellen befüllt sind, der Tabelle Eingabe nach jeden öffnen anhand von...
09.08.2011 09:01:54
Thread-ID: 1225325
14 Beiträge
Dateipfad eingeben und nach Werten druchsuchen
Jens

Hallo Forumsteilnehmer,
ich habe ein problem welches ich mit meinen unzureichenden Kenntnissen leider nicht alleine lösen kann.
Ich soll in einer Arbeitsmappe (z.B Mappe1 / Sheet1) einen Dateipfad für eine andere Mappe (z.B. Mappe2) angeben und per Knopfdruck nach dieser suchen lassen.<...
16.12.2011 08:45:41
Thread-ID: 1242216
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
6
1
7
1
8
7
11
13
2
3
2
1
18
2
2
1
3
4
1
3
2
4
9
6