With Application.FileSearch
11.12.2013 11:02:13
Manfred
ich habe große Schwierigkeiten folgendes Makro an Office 2007 anzupassen. Ist jemand von EUch in der Lage, dies für mich zu tun. Meine Recherchen bringen mich nicht wirklich weiter damit.
Sub DruckvorlagenSuchen()
Verzeichnis = Cells(100, 1)
Sheets("Tabelle1").ComboBox1 = ""
Sheets("Tabelle1").ComboBox1.Clear
Dim gefunden
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis & "druckvorlagen"
.Filename = variante & "*" & Drucker0
.Execute
For Each gefunden In .FoundFiles
Sheets("Tabelle1").ComboBox1.AddItem Dir(gefunden)
Next
End With
End Sub
Gruß Manfred