Einzelnen Unterordner in Suche miteinbeziehen
11.07.2018 10:44:15
Christian
Ich habe das Folgende Problem: Ich habe (mit der super Hilfe von einigen hier) ein Makro erstellt, welches eine Spalte einer Tabelle (in der eine Nummer steht) mit den Dateinamen in einem Ordner abgleicht und mir als Ergebnis ausgibt ob es eine Datei gibt in der diese Numemer vorkommt. Jetzt gibt es in dem Ordner allerding noch einen weiteren Unterordner in dem auch Dateien liegen die durchsucht werden sollen (allerdings gibt es weitere Unterordner die nicht durchsucht werden sollen). Gibt es da eine Lösung?
Mein Code:
Sub check()
Dim Tb, LR As Long, EZ As Integer, SP As Integer, ZSp As Integer, I As Long
Dim Pfad As String, Datei As String, TMP As String, Anz As Integer, JaNein As String
Dim Pfad2 As String
Columns("F").Insert Shift:=xlToRight
Set Tb = Sheets("Tabelle1")
EZ = 2 'wegen Überschrift
SP = 5 'Spalte mit den nummern
ZSp = 6 'Zielspalte
Pfad = "Z:\Ordner\"
Pfad2 = "Z:\Ordner\Unterordner\"
LR = Tb.Cells(Tb.Rows.Count, SP).End(xlUp).Row
Tb.Cells(EZ, ZSp).Resize(LR - EZ + 1, 1).ClearContents 'reset
For I = EZ To LR
TMP = Tb.Cells(I, SP)
JaNein = IIf(Dir(Pfad & "*" & TMP & "*") "", "Ja", "Nein")
Tb.Cells(I, ZSp) = JaNein
Next
End Sub
Danke schon mal!