Informationen und Beispiele zum Thema Userform | |
---|---|
![]() |
Userform-Seite mit Beispielarbeitsmappe aufrufen |
Hallo Leute,
Danke für die Hilfe vom Letzten mal, hat richtig gut geklappt und war richtig froh drum, aber ich steh wieder an. :-(
Wie kann ich die ganzen Ordner in der Listbox öffnen, und zum Schluss die verschiedenen Excel dateien aufmachen sodass
sie mir in der Listbox angezeigt werden und diese in der Userform mit der Eingabe füllen.
Ich checks grad gar nid.
Hab alles in der zip gepackt.
Mfg Michael
https://www.herber.de/bbs/user/140911.zip
Public Sub Dateien_auswählen() Dim FD As FileDialog Dim D As String Set FD = Application.FileDialog(msoFileDialogFilePicker) FD.AllowMultiSelect = True FD.InitialFileName = "C:\Users\micha\OneDrive\Desktop\Projekt Buchhaltung\" If FD.Show Then For Each D In FD.SelectedItems Debug.Print D Next D End If End SubViel Erfolg