Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Datein auslesen in Combobox

• Datein auslesen in Combobox von Thomas_H vom 16.09.2004 11:01:04
• AW: Datein auslesen in Combobox - von Andre am 16.09.2004 11:15:17
  • Danke !!! - von Thomas_H am 16.09.2004 11:25:29

Betrifft: Datein auslesen in Combobox von: Thomas_H
Geschrieben am: 16.09.2004 11:01:04

Hallo XL-Profis!

Ich brauch wiedereinmal eure Hilfe.
Ich möchte gerne einen Ordner (C:\Test) auslesen und alle vorhandenen Excel-Datein in einer Combobox ausgeben. Leider funktioniert das nicht wirklich.
Zur Sicherheit zeig ich euch den Code den ich verwende, und ihr könnt mir sagen was ich falsch mache. Danke für eure Hilfe, Thomas

Private Sub Daten_auslesen()
Dim ASF As Object
Dim i As Integer
Set ASF = Application.FileSearch

    With ASF
            ChDir "C:\Test"                     ' Verzeichnis wechseln
            .NewSearch                          ' Neue Suche beginnen
            .LookIn = "C:\Test"                 ' Suchen in <<Pfad>>
            .Filename = "*.xls"                 ' Alle Dateien anzeigen
            With Userform1.Combobox1
                .AddItem (FoundFiles)
            End With
    End With
End Sub

Betrifft: AW: Datein auslesen in Combobox von: Andre
Geschrieben am: 16.09.2004 11:15:17

Hi Thomas,

versuch´s mal damit:

Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\NePro")
Set fc = f.Files
    
   For Each f1 In fc
      UserForm1.ComboBox1.AddItem (f1.Name)
   Next
   UserForm1.ComboBox1.ListIndex = 0

End Sub

Gruß Andre




Betrifft: Danke !!! von: Thomas_H
Geschrieben am: 16.09.2004 11:25:29

Danke für die Hilfe!

Es funtkioniert.

Thomas H.

Beiträge aus den Excel-Beispielen zum Thema "Datein auslesen in Combobox"