Wie kann ich mehrere Bereiche in verschiedenen Blättern mit application.inputbox markieren, kopieren und in ein ausgewähltes Blatt einfügen?

Um mehrere Bereiche in verschiedenen Blättern mit `Application.InputBox` in Excel VBA zu markieren, zu kopieren und in ein durch `Application.InputBox` ausgewähltes Blatt einzufügen, kannst du den folgenden VBA-Code verwenden:

```vba
Sub KopiereBereiche()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim rngQuelle As Range
Dim rngZiel As Range
Dim strAdresse As String
Dim strBlattName As String
Dim letzteZeile As Long
Dim i As Integer

' Zielblatt auswählen
strBlattName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)
On Error Resume Next
Set wsZiel = ThisWorkbook.Sheets(strBlattName)
On Error GoTo 0

If wsZiel Is Nothing Then
MsgBox "Das Blatt " & strBlattName & " existiert nicht."
Exit Sub
End If

' Schleife für mehrere Bereiche
For i = 1 To 3 ' Anzahl der Bereiche, die du kopieren möchtest
' Quellbereich auswählen
strAdresse = Application.InputBox("Wähle den Bereich auf Blatt " & i & " aus:", Type:=8)
If strAdresse = "False" Then Exit Sub ' Abbrechen

' Quellblatt auswählen
strBlattName = Application.InputBox("Gib den Namen des Quellblatts " & i & " ein:", Type:=2)
On Error Resume Next
Set wsQuelle = ThisWorkbook.Sheets(strBlattName)
On Error GoTo 0

If wsQuelle Is Nothing Then
MsgBox "Das Blatt " & strBlattName & " existiert nicht."
Exit Sub
End If

Set rngQuelle = wsQuelle.Range(strAdresse)

' Zielbereich bestimmen
letzteZeile = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1
Set rngZiel = wsZiel.Cells(letzteZeile, 1)

' Bereich kopieren und einfügen
rngQuelle.Copy Destination:=rngZiel
Next i

MsgBox "Bereiche wurden erfolgreich kopiert."
End Sub
```

Dieser Code führt dich durch die folgenden Schritte:

1. Auswahl des Zielblatts.
2. Schleife zur Auswahl und Kopieren von Bereichen aus verschiedenen Quellblättern.
3. Einfügen der kopierten Bereiche in das Zielblatt.

Du kannst die Anzahl der Bereiche, die du kopieren möchtest, durch Ändern der Schleifenbedingung `For i = 1 To 3` anpassen.