modul activesheet

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim BrowseDir As Object
If Target.Address  "$B$1" And Target.Value = "" Then
Set BrowseDir = CreateObject("Shell.Application").BrowseForFolder(0, "Ordner auswählen", &H0,  _
17)
If Not BrowseDir Is Nothing Then
Range("B1").Value = BrowseDir.self.Path & "\"
End If
Set BrowseDir = Nothing
End If
End Sub