ich möchte gerne das ein user per button einen bestimmten ordner auswählen kann. Dieser ordner dient dann als temp ablage für dateien.
Gibt es da eine möglichkeit? Weil in der Toolbar von VBA habe ich es leider nicht gefunden.
mfg sven
Sub netzwerk_durchsuchen()
Dim Ordnerpfad
Dim dat
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
With dat
.Title = "Netzwerk...."
.InitialFileName = "C:\" '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
Sub Verzeichnis()
Dim ordner As FileDialog, Pfad As String
Set ordner = Application.FileDialog(msoFileDialogFolderPicker) '4
If ordner.Show = -1 Then
Pfad = ordner.SelectedItems(1)
End If
MsgBox Pfad
Set ordner = Nothing
End Sub