Hallo zusammen,
ich habe mir einen Code ergoogelt der mit Dateien aus einem bestimmten Verzeichnis in excel auflistet.
Leider steht der Pfad dirkt im Code. Diesen würde ich aber gerne über den Filebrowser wählen können.
Da meine VBA Kentnisse sehr begrenzt sind hoffe ich, dass mir hier einer der Profis weiter helfen kann.
Vorab vielen Dank und der Code anbei.....
Private Sub CommandButton1_Click()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("H:\Angebot_NC\1_0mm\*.geo*") 'Hier Verzeichnis und Datei angeben
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
|