Ich möchte ein Verzeichnis auslesen und in in ein pull Down Menü ausgeben
wenn ich nun die richtige Datei ausgewählt habe dann Klick ich aufm Button und es werden
Bsp. Zellen A4-D20 kopiert und in das aktuelle Blatt eingefügt ?
Private Sub UserForm_Activate()
Const ROOT_FOLDER As String = "D:\Eigene Dateien\Eigene Excelbeispiele\" 'Anpassen !!!!!!!!! _
_
Dim strFilename As String
strFilename = Dir$(ROOT_FOLDER & "*.xls")
Do Until strFilename = vbNullString
Call ListBox1.AddItem(pvargItem:=strFilename)
strFilename = Dir$
Loop
End Sub
Hat jemand n Idee