Wie öffne ich in Excel VBA eine Datei über ein Dialogfenster?

Um in Excel VBA eine Datei über ein Dialogfenster auszuwählen und zu öffnen, kannst du den folgenden Code verwenden. Dieser öffnet ein Datei-Auswahlfenster, in dem der Benutzer eine Datei auswählen kann:

```vba
Sub DateiOeffnen()
Dim fd As FileDialog
Dim DateiPfad As String

' Erstelle ein neues Datei-Dialogfenster
Set fd = Application.FileDialog(msoFileDialogFilePicker)

' Konfiguriere das Dialogfenster
With fd
.Title = "Wähle eine Datei aus"
.AllowMultiSelect = False ' Mehrfachauswahl deaktivieren
.Filters.Clear ' Filter zurücksetzen
.Filters.Add "Excel Dateien", "*.xls; *.xlsx; *.xlsm" ' Filter für Excel-Dateien
.Filters.Add "Alle Dateien", "*.*" ' Filter für alle Dateien

' Zeige das Dialogfenster an
If .Show = -1 Then ' Wenn der Benutzer eine Datei auswählt
DateiPfad = .SelectedItems(1) ' Pfad der ausgewählten Datei
' Öffne die ausgewählte Datei
Workbooks.Open DateiPfad
Else
MsgBox "Keine Datei ausgewählt."
End If
End With

' Setze das Objekt zurück
Set fd = Nothing
End Sub
```

Dieser Code erstellt ein Datei-Dialogfenster, in dem der Benutzer eine Excel-Datei auswählen kann. Nach der Auswahl wird die Datei geöffnet. Du kannst die Filter anpassen, um andere Dateitypen zuzulassen, falls nötig.