Wie markiere ich mehrere Blätter und Bereiche in Excel mit Application.InputBox und kopiere die Daten?

Um mehrere Blätter und Bereiche in Excel mit `Application.InputBox` auszuwählen und die Daten zu kopieren, kann VBA (Visual Basic for Applications) verwendet werden. Hier ist ein Beispiel, wie das gemacht werden kann:

```vba
Sub CopyMultipleRanges()
Dim ws As Worksheet
Dim rng As Range
Dim selectedRanges As Range
Dim destSheet As Worksheet
Dim destCell As Range
Dim userInput As String
Dim addressArray() As String
Dim i As Integer

' Zielarbeitsblatt und Zelle festlegen
Set destSheet = ThisWorkbook.Sheets("Zielblatt") ' Zielblatt anpassen
Set destCell = destSheet.Range("A1") ' Zielzelle anpassen

' Eingabefeld für die Auswahl der Bereiche
userInput = Application.InputBox("Gib die Bereiche ein, die du kopieren möchtest (z.B. 'Sheet1!A1:B2,Sheet2!C3:D4'):", Type:=2)

' Überprüfen, ob der Benutzer die Eingabe abgebrochen hat
If userInput = "False" Then Exit Sub

' Adressen in ein Array aufteilen
addressArray = Split(userInput, ",")

' Schleife durch die Adressen und Bereiche kopieren
For i = LBound(addressArray) To UBound(addressArray)
Set rng = Range(addressArray(i))

' Bereich kopieren und in das Zielblatt einfügen
rng.Copy destCell

' Zielzelle für den nächsten Einfügevorgang anpassen
Set destCell = destSheet.Cells(destCell.Row + rng.Rows.Count, destCell.Column)
Next i

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

Dieses Skript führt folgende Schritte aus:

1. Es wird ein Eingabefeld angezeigt, in dem die Benutzer die Bereiche eingeben können, die sie kopieren möchten. Die Bereiche sollten im Format `SheetName!Range` eingegeben und durch Kommas getrennt werden.
2. Die eingegebenen Bereiche werden in ein Array aufgeteilt.
3. Jeder Bereich wird kopiert und in das Zielblatt eingefügt, wobei die Zielzelle für jeden Einfügevorgang angepasst wird.

Bitte passe die Namen des Zielblatts und der Zielzelle entsprechend deinen Anforderungen an.