Xlsm Dateien in eine Combobox laden
17.01.2021 12:11:03
Thomas
kann mir jemand weiterhelfen?
Ich möchte in eine Combobox aus einem Verzeichnis Exceldateien laden können. XLSM Dateien würden da schon reichen.
Hier habe ich ein Skript aber das liest mir nur die PDF Dateien aus dem Verzeichnis statt das XLSM Format. Was mach ich da nur falsch?
Private Sub UserForm_Initialize()
Dim strPath As String
Dim strFile As String
'xlsm Dateiname einlesen
strPath = Sheets("Materialimport").Range("D7")
strFile = Dir(strPath)
With CB_Dateiname
.Clear
Do Until strFile = ""
.AddItem strFile
strFile = Dir("\*.xlsm")
Loop
End With
End Sub