Nun würde ich gerne voreinstellen, welches Verzeichnis geöffnet wird, wenn ich auf den Button klicke. Da die Dateien nämlich alle immer in einem Ordner liegen, ist es etwas mühselig, jedes Mal vom Pfad C:\ zu starten und sich den Weg zu dem Ordner zu suchen.
Vielen Dank und Gruß,
Frank
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Microsoft Excel-Dateien", "*.xlsx"
.Show
If .SelectedItems.Count = 1 Then
TextBox1 = .SelectedItems(1)
Cancel = True
Workbooks.Open (TextBox1)
End If
End With
End Sub