macro path naar cel

[oerotter]

Ik wil in mijn excel bestand een lok actie vanuit de Explorer kopiëren naar een cel in mijn werkblad.

Het is de bedoeling dat met een knop in het werkblad de Explorer geopend word en dat de gebruiker een map kan selecteren eb deze na het indrukken van de OK knop de volledige lokatie (path) naar bijvoorbeeld val A1 word gecopieerd.

Hopelijk kan iemand mij voorzien van deze macro.... Internet bood mij vandaag geen uitkomst!!

 

[edmoor]

Code voor achter de knop. Bijvoorbeeld (zonder foutcontrole):

Sub Knop1_Klikken()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        Range("A1").Value = .SelectedItems(1)
    End With
End Sub