Combobox
19.12.2004 19:55:01
Peter
ich lese die Dateinamen aus einem vorgegebenen
Unterverzeichnis aus, und gebe diese Dateinamen in einer
Tabelle aus.
Wie kann ich diese Dateinamen an eine Combobox übergeben
ohne das eine vorherige Ausgabe in eine Tabelle erfolgt?
Danke
Peter
Sub DateienAuflisten()
Dim FileArray()
Dim VzPfad As String
Dim DatTyp As String
Dim DateiAlt As String
Dim n As Integer
Dim i As Integer
VzPfad = "A:\Abt\Urlaubslisten"
ChDir VzPfad
If VzPfad = "" Then Exit Sub
DatTyp = "xls"
If DatTyp = "" Then Exit Sub
ChDrive Left(VzPfad, 1)
DateiAlt = Dir("*." & DatTyp)
Application.ScreenUpdating = False
Do While DateiAlt <> ""
n = n + 1
ReDim Preserve FileArray(1 To n)
FileArray(n) = DateiAlt
DateiAlt = Dir()
Loop
For i = 1 To n
If InStr(1, FileArray(i), ".XL", 1) Then
'hier möchte ich die gefundenen Dateien
'in die UserForm1.ComboBox1 übernehmen
Cells(i, 1).Value = FileArray(i) 'ohne Übernahme in Tab.
End If
Next i
Exit Sub
Application.ScreenUpdating = True
End Sub
Anzeige