Wie kann ich mehrere Blätter und Bereiche mit Application.InputBox auswählen, kopieren und in ein mithilfe von Application.InputBox ausgewähltes Blatt einfügen?

Um mehrere Blätter und Bereiche mit `Application.InputBox` in Excel VBA auszuwählen, zu kopieren und in ein mit `Application.InputBox` ausgewähltes Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code zeigt, wie du die Eingabeauffung verwendest, um die Blätter und Bereiche auszuwählen und die Daten zu kopieren:

```vba
Sub CopyMultipleRanges()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim rngSource As Range
Dim rngTarget As Range
Dim targetSheetName As String
Dim sourceSheetName As String
Dim sourceRangeAddress As String
Dim targetRangeAddress As String
Dim i As Integer
Dim numRanges As Integer

' Anzahl der zu kopierenden Bereiche abfragen
numRanges = Application.InputBox("Wie viele Bereiche möchtest du kopieren?", Type:=1)

' Zielblatt abfragen
targetSheetName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)
On Error Resume Next
Set wsTarget = ThisWorkbook.Sheets(targetSheetName)
On Error GoTo 0
If wsTarget Is Nothing Then
MsgBox "Das Zielblatt existiert nicht."
Exit Sub
End If

' Zielbereich abfragen
targetRangeAddress = Application.InputBox("Gib die Adresse des Zielbereichs ein:", Type:=8)
Set rngTarget = wsTarget.Range(targetRangeAddress)

' Schleife durch die Anzahl der Bereiche
For i = 1 To numRanges
' Quellblatt abfragen
sourceSheetName = Application.InputBox("Gib den Namen des Quellblatts " & i & " ein:", Type:=2)
On Error Resume Next
Set wsSource = ThisWorkbook.Sheets(sourceSheetName)
On Error GoTo 0
If wsSource Is Nothing Then
MsgBox "Das Quellblatt " & i & " existiert nicht."
Exit Sub
End If

' Quellbereich abfragen
sourceRangeAddress = Application.InputBox("Gib die Adresse des Quellbereichs " & i & " ein:", Type:=8)
Set rngSource = wsSource.Range(sourceRangeAddress)

' Bereich kopieren und einfügen
rngSource.Copy Destination:=rngTarget
' Zielbereich für den nächsten Kopiervorgang anpassen
Set rngTarget = rngTarget.Offset(rngSource.Rows.Count, 0)
Next i

MsgBox "Kopieren abgeschlossen."
End Sub
```

Dieser Code führt dich durch die Schritte, um die Anzahl der zu kopierenden Bereiche, die Quellblätter und -bereiche sowie das Zielblatt und den Zielbereich auszuwählen. Die Daten werden dann entsprechend kopiert und eingefügt.