Wie wähle ich mit Application.inputbox mehrere Blätter und Bereiche aus und kopiere sie?

Um in Excel VBA mit `Application.InputBox` mehrere Blätter und Bereiche auszuwählen und kopieren, kannst du den folgenden Code als Beispiel verwenden. Dieser Code ermöglicht es dem Benutzer, mehrere Bereiche auf verschiedenen Blättern auszuwählen und diese dann in ein neues Blatt zu kopieren.

```vba
Sub CopyMultipleRanges()
Dim ws As Worksheet
Dim rng As Range
Dim selectedRanges As Collection
Dim userRange As Range
Dim destSheet As Worksheet
Dim destCell As Range
Dim i As Integer

' Sammlung für die ausgewählten Bereiche erstellen
Set selectedRanges = New Collection

' Schleife, um mehrere Bereiche auszuwählen
On Error Resume Next
Do
Set userRange = Application.InputBox("Wähle einen Bereich aus (Abbrechen zum Beenden):", Type:=8)
If Not userRange Is Nothing Then
selectedRanges.Add userRange
Else
Exit Do
End If
Loop
On Error GoTo 0

' Neues Blatt für die kopierten Bereiche erstellen
Set destSheet = ThisWorkbook.Sheets.Add
destSheet.Name = "Kopierte Bereiche"

' Zielzelle für das Kopieren festlegen
Set destCell = destSheet.Cells(1, 1)

' Ausgewählte Bereiche kopieren
For i = 1 To selectedRanges.Count
Set rng = selectedRanges(i)
rng.Copy destCell
' Zielzelle für den nächsten Bereich festlegen
Set destCell = destSheet.Cells(destCell.Row + rng.Rows.Count, 1)
Next i

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

Dieser Code führt folgende Schritte aus:

1. Er erstellt eine Sammlung (`Collection`), um die ausgewählten Bereiche zu speichern.
2. Er verwendet eine Schleife, um den Benutzer aufzufordern, Bereiche auszuwählen, bis der Benutzer auf "Abbrechen" klickt.
3. Er erstellt ein neues Arbeitsblatt, um die kopierten Bereiche zu speichern.
4. Er kopiert jeden ausgewählten Bereich in das neue Arbeitsblatt und verschiebt die Zielzelle nach unten, um Platz für den nächsten Bereich zu schaffen.

Dieser Code kann in einem VBA-Modul in Excel eingefügt und ausgeführt werden.