bestehenden Code präzisieren
10.09.2013 13:44:16
Andreas
Ich habe, Dank dieses Forums, ein Userform mit einer Combobox und mehreren Commandbuttons. Bei Aufruf des Userform werden mir in der Combobox alle Dateien des aktuellen Ordners zur Auswahl angezeigt. Dabei wird folgender Code benutzt:
Private Sub UserForm_Initialize()
Dim strFile As String
strFile = Dir(ThisWorkbook.Path & "\")
With ComboBox1
.Clear
Do Until strFile = ""
.AddItem Left(strFile, Len(strFile))
strFile = Dir
Loop
End With
End Sub
Besteht die Möglichkeit, dass in der Combobox nur alle Dateien mit der Endung xlsb angezeigt werden, und wie muss der Code dann aussehen.Danke für's lesen und die Hilfe!
mfg, Andreas