Wie wähle ich mehrere Bereiche in verschiedenen Blättern mit Application.InputBox aus, kopiere Zellen und füge sie in ein ausgewähltes Blatt ein?

Um mehrere Bereiche in verschiedenen Blättern mit `Application.InputBox` auszuwählen, Zellen zu kopieren und in ein mit `Application.InputBox` ausgewähltes Blatt einzufügen, kannst du VBA (Visual Basic for Applications) in verwenden. Hier ist ein Beispielskript, das dies ermöglicht:

```vba
Sub CopyMultipleRanges()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim rngSource As Range
Dim rngTarget As Range
Dim strAddress As String
Dim i As Integer
Dim lastRow As Long

' Schleife, um mehrere Bereiche auszuwählen
For i = 1 To 3 ' Anzahl der Bereiche, die du auswählen möchtest
On Error Resume Next
Set wsSource = Nothing
Set rngSource = Nothing
strAddress = Application.InputBox("Wähle den Bereich auf dem Quellblatt " & i & " aus", Type:=8)
If strAddress = "False" Then Exit Sub ' Abbrechen, wenn der Benutzer auf Abbrechen klickt
Set rngSource = Range(strAddress)
If rngSource Is Nothing Then
MsgBox "Ungültiger Bereich. Bitte erneut versuchen."
i = i - 1
Else
' Bereich kopieren und in das Zielblatt einfügen
If wsTarget Is Nothing Then
Set wsTarget = Worksheets(Application.InputBox("Wähle das Zielblatt aus", Type:=2))
If wsTarget Is Nothing Then Exit Sub ' Abbrechen, wenn der Benutzer auf Abbrechen klickt
End If
lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
rngSource.Copy Destination:=wsTarget.Cells(lastRow, 1)
End If
On Error GoTo 0
Next i

MsgBox "Bereiche erfolgreich kopiert!"
End Sub
```

Dieses Skript führt dich durch die folgenden Schritte:

1. Es fordert den Benutzer auf, mehrere Bereiche in verschiedenen Blättern auszuwählen.
2. Es kopiert die ausgewählten Bereiche.
3. Es fordert den Benutzer auf, ein Zielblatt auszuwählen.
4. Es fügt die kopierten Bereiche in das Zielblatt ein.

Du kannst die Anzahl der Bereiche, die du auswählen möchtest, anpassen, indem du die Zahl in der Schleife `For i = 1 To 3` änderst.