Inhalt Combobox in mehreren Comboboxen
07.11.2013 16:49:52
Andreas
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
Danke fürs lesen und die Hilfe!
mfg, Andreas
Anzeige