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
Danke für's lesen und die Hilfe!
mfg, Andreas
Anzeige