VBA: Aus geöffneter Datei eine andere Datei auswählen und ein Datenblatt importieren.

Um in VBA eine Datei auszuwählen und ein bestimmtes Datenblatt aus dieser Datei in die aktuell geöffnete Datei zu importieren, kannst du den folgenden Code verwenden. Dieser Code öffnet einen Datei-Dialog, um eine Excel-Datei auszuwählen, und importiert dann das gewählte Datenblatt.

```vba
Sub ImportWorksheet()
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim filePath As String
Dim sheetName As String
Dim sheetExists As Boolean
Dim i As Integer

' Datei-Dialog zum Auswählen der Datei
filePath = Application.GetOpenFilename("Excel-Dateien (*.xls; *.xlsx), *.xls; *.xlsx", , "Wähle eine Excel-Datei aus")

' Überprüfen, ob eine Datei ausgewählt wurde
If filePath = "False" Then Exit Sub

' Öffne die ausgewählte Datei
Set wbSource = Workbooks.Open(filePath)

' Auswahl des Datenblattes
sheetExists = False
For i = 1 To wbSource.Worksheets.Count
If wbSource.Worksheets(i).Name <> "" Then
sheetName = wbSource.Worksheets(i).Name
If MsgBox("Möchtest du das Datenblatt '" & sheetName & "' importieren?", vbYesNo) = vbYes Then
Set wsSource = wbSource.Worksheets(i)
sheetExists = True
Exit For
End If
End If
Next i

' Wenn kein Datenblatt ausgewählt wurde, beende das Makro
If Not sheetExists Then
MsgBox "Kein Datenblatt ausgewählt. Vorgang abgebrochen."
wbSource.Close False
Exit Sub
End If

' Erstelle ein neues Datenblatt in der aktuellen Arbeitsmappe
Set wsDest = ThisWorkbook.Worksheets.Add
wsDest.Name = wsSource.Name

' Kopiere die Daten vom Quell- zum Ziel-Datenblatt
wsSource.Cells.Copy Destination:=wsDest.Cells

' Schließe die Quellarbeitsmappe
wbSource.Close False

MsgBox "Datenblatt '" & wsSource.Name & "' wurde erfolgreich importiert."
End Sub
```

### Erklärung des Codes:
1. **Dateiauswahl**: Der Benutzer wird aufgefordert, eine Excel-Datei auszuwählen.
2. **Öffnen der Datei**: Die ausgewählte Datei wird geöffnet.
3. **Datenblatt-Auswahl**: Der Benutzer wird gefragt, ob er jedes Datenblatt importieren möchte.
4. **Kopieren der Daten**: Das ausgewählte Datenblatt wird in die aktuell geöffnete Arbeitsmappe kopiert.
5. **Schließen der Quellarbeitsmappe**: Die Quellarbeitsmappe wird geschlossen, ohne die Änderungen zu speichern.

Dieser Code kann in einem VBA-Modul eingefügt und ausgeführt werden, um den Importprozess zu starten.