Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten in Listenfeld schreiben

Daten in Listenfeld schreiben
17.06.2005 10:07:05
Fuger
Guten Morgen!
Ich habe folgenden Code:

Sub Suchen
With Application.FileSearch
.LookIn = "c:\Leitz Anwendungen\Kaindl\Gelieferte Positionen"
.FileType = msoFileTypeExcelWorkbooks
.Execute()
End Sub

Wie kann ich das Ergebnis in einem Listenfeld anzeigen?
Bitte um Hilfe
Danke
Gerhard

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in Listenfeld schreiben
17.06.2005 21:50:24
MichaV
Hallo
so z.B.:

Option Explicit
Sub Suchen()
Dim i As Integer
With Application.FileSearch
.LookIn = "d:\spiele\max\"
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
ListBox1.AddItem .FoundFiles(i)
Next
End With
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige