Mehrere Blätter und Bereiche in Excel mittels Application.InputBox auswählen und kopieren, VBA.

Um mehrere Blätter und Bereiche gleichzeitig in Excel mittels `Application.InputBox` durch Markieren auszuwählen und zu kopieren, kannst du VBA verwenden. Hier ist ein Beispielskript, das dir zeigt, wie du dies umsetzen kannst:

```vba
Sub SelectAndCopyRanges()
Dim ws As Worksheet
Dim selectedRange As Range
Dim destSheet As Worksheet
Dim destCell As Range
Dim userInput As String
Dim rng As Range
Dim rngAddress As String

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

' Schleife durch alle Arbeitsblätter
For Each ws In ThisWorkbook.Worksheets
' Eingabeaufforderung zur Auswahl eines Bereichs
On Error Resume Next
Set selectedRange = Application.InputBox("Wähle einen Bereich in " & ws.Name, Type:=8)
On Error GoTo 0

' Wenn ein Bereich ausgewählt wurde
If Not selectedRange Is Nothing Then
' Bereich kopieren und in das Zielblatt einfügen
selectedRange.Copy Destination:=destCell

' Zielzelle für den nächsten Einfügevorgang anpassen
Set destCell = destSheet.Cells(destCell.Row + selectedRange.Rows.Count, destCell.Column)
End If
Next ws
End Sub
```

In diesem Skript wird für jedes Arbeitsblatt im aktuellen Workbook eine `InputBox` angezeigt, in der du einen Bereich auswählen kannst. Der ausgewählte Bereich wird dann in ein Zielblatt kopiert, das du vorher festlegst. Die Zielzelle wird nach jedem Kopiervorgang angepasst, sodass die Bereiche untereinander eingefügt werden.

Stelle sicher, dass du den Namen des Zielblatts und die Zielzelle entsprechend deinen Anforderungen anpasst.