Es gibt eine Standarddialog um einen Ordner auszuwählen mit OK & Abbrechen - Button, allerdings weiß ich nicht mehr wie er heißt!
Also:
?Ordnerauswahl?.show
nach "OK" - klicken:
range("a1") = dir(ordnerauswahl)
Wer kann mir helfen?
Gruß
Frederik
hallo frederik
suchst du sowas?
Option Explicit
Sub Aufruf()
Call get_Folder("Was soll ich machen?", "C:\Eigene Dateien")
End Sub
Sub get_Folder(Optional capt, Optional initF)
'K.Rola
Dim objShell As Object, objFolder As Object, objItem As Object
Set objShell = CreateObject("Shell.Application")
With objShell
Set objFolder = .BrowseForFolder(0&, capt, 0, initF)
End With
If Not objFolder Is Nothing Then
Set objItem = objFolder.Self
MsgBox objItem.Path
End If
End Sub
oder sowas?
Option Explicit
Sub netzwerk_durchsuchen()
Dim Ordnerpfad
Dim dat
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
With dat
.Title = "Netzwerk...."
.InitialFileName = "d:\" 'oder was auch immer
If .Show = -1 Then
For Each Ordnerpfad In .SelectedItems
MsgBox Ordnerpfad 'Zur weiteren verwendung
Next Ordnerpfad
End If
End With
End Sub
ransi