Wie markiere ich mehrere Excel-Bereiche mit Application.InputBox und füge die Daten in ein ausgewähltes Blatt ein?

Um Daten aus mehreren Excel-Blättern zu markieren und in ein neues Blatt einzufügen, kannst du VBA (Visual Basic for Applications). Hier ist ein Beispielskript, das dies ermöglicht:

```vba
Sub KopiereDaten()
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim rngQuelle As Range
Dim rngZiel As Range
Dim strBlattName As String
Dim letzteZeile As Long

' 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 durch alle Blätter
For Each wsQuelle In ThisWorkbook.Sheets
' Quellebereich auswählen
On Error Resume Next
Set rngQuelle = Application.InputBox("Markiere den Bereich in " & wsQuelle.Name, Type:=8)
On Error GoTo 0

If Not rngQuelle Is Nothing Then
' Daten in das Zielblatt kopieren
letzteZeile = wsZiel.Cells(wsZiel.Rows.Count, "A").End(xlUp).Row + 1
rngQuelle.Copy Destination:=wsZiel.Cells(letzteZeile, 1)
End If
Next wsQuelle

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

Dieses Skript führt folgende Schritte aus:

1. Es fordert den Benutzer auf, den Namen des Zielblatts einzugeben.
2. Es überprüft, ob das Zielblatt existiert.
3. Es durchläuft alle Blätter in der Arbeitsmappe.
4. Es fordert den Benutzer auf, einen Bereich in jedem Blatt zu markieren.
5. Es kopiert die markierten Daten in das Zielblatt, beginnend in der ersten freien Zeile.

Um das Skript auszuführen, öffne den VBA-Editor (Alt + F11), füge ein neues Modul ein und kopiere den obigen Code hinein. Führe dann das Makro `KopiereDaten` aus.