Ich habe ein UserForm mit einer Combobox, in der alle *.xlsb Dateien des aktuellen Verzeichnisses angezeigt werden. Dazu benutze ich (Dank dieses Forums) folgenden Code:
Private Sub UserForm_Initialize()
Dim strFile As String
strFile = Dir(ThisWorkbook.Path & "\*.xlsb")
With ComboBox1
.Clear
Do Until strFile = ""
.AddItem Left(strFile, Len(strFile))
strFile = Dir
Loop
End With
End Sub
Jetzt habe ich 9 weitere Comboboxen angelegt und möchte in diesen auch alle *.xlsb des aktuellen Verzeichnisses angezeigt bekommen. Wie müsste ich o.g. Code erweitern.Danke fürs lesen und die Hilfe!
mfg, Andreas