Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1340to1344
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
Inhaltsverzeichnis

With Application.FileSearch

With Application.FileSearch
11.12.2013 11:02:13
Manfred
Hallo Excelfreunde,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Recherche: FileSearch+Xl12
11.12.2013 12:11:49
Luc:-?
Hallo, Manfred;
im Archiv und auch in anderen Xl-Foren bzw -Tutorien (zB auch Online-Excel ) und privaten XlSites gibt's schon lange Ersatz dafür.
Gruß Luc :-?

AW: weniger hilfreich, eher verwirrend
11.12.2013 12:35:33
Manfred
Hallo Luc,
wenn da davon etwas versteht, kommt man bestimmt damit klar.
Ich benötige Hilfe, keine weitere Verwirrung.
Gruß Manfred

Soso, ein Recherche-Tipp verwirrt dich also! :->
12.12.2013 00:14:41
Luc:-?
Luc :-?

AW: With Application.FileSearch
11.12.2013 12:55:59
Rudi
Hallo,
geraten so:
Sub DruckvorlagenSuchen()
Dim gefunden
Verzeichnis = Cells(100, 1)
Sheets("Tabelle1").ComboBox1 = ""
Sheets("Tabelle1").ComboBox1.Clear
gefunden = Dir(Verzeichnis & "druckvorlagen\" & variante & "*" & Drucker0)
Do While gefunden  ""
Sheets("Tabelle1").ComboBox1.AddItem gefunden
gefunden = Dir
Loop
End Sub

Gruß
Rudi

Anzeige
AW: With Application.FileSearch
11.12.2013 13:01:23
Manfred
Hallo Rudi,
sehr gut, es funktioniert.
Vielen Vielen Dank
Gruß Manfred

33 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige