Wie wählt man mehrere Blätter und Bereiche mit Application.inputBox aus und führt diese in ein ausgewähltes Blatt zusammen?

Um mehrere Blätter und Bereiche mittels `Application.InputBox` auszuwählen und diese in ein mit `Application.InputBox` ausgewähltes Blatt zusammenzuführen, kannst du VBA (Visual Basic for Applications) in verwenden. Hier ist ein Beispiel, wie du das machen könntest:

1. Öffne Excel und drücke `Alt + F11`, um den VBA-Editor zu öffnen.
2. Füge ein neues Modul ein, indem du auf `Einfügen` > `Modul` klickst.
3. Kopiere und füge den folgenden Code in das Modul ein:

```vba
Sub Zusammenführen()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim rngQuelle As Range
Dim rngZiel As Range
Dim strZielBlatt As String
Dim strQuelleBlatt As String
Dim strQuelleBereich As String
Dim letzteZeile As Long

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

If wsZiel Is Nothing Then
MsgBox "Das Zielblatt existiert nicht."
Exit Sub
End If

' Schleife zum Auswählen und Kopieren der Quellbereiche
Do
' Quellblatt auswählen
strQuelleBlatt = Application.InputBox("Gib den Namen des Quellblatts ein (Abbrechen zum Beenden):", Type:=2)
If strQuelleBlatt = "" Then Exit Do

On Error Resume Next
Set wsQuelle = ThisWorkbook.Sheets(strQuelleBlatt)
On Error GoTo 0

If wsQuelle Is Nothing Then
MsgBox "Das Quellblatt existiert nicht."
Exit Sub
End If

' Quellbereich auswählen
On Error Resume Next
Set rngQuelle = Application.InputBox("Wähle den Bereich im Quellblatt aus:", Type:=8)
On Error GoTo 0

If rngQuelle Is Nothing Then
MsgBox "Ungültiger Bereich."
Exit Sub
End If

' Letzte Zeile im Zielblatt finden
letzteZeile = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1

' Bereich kopieren und einfügen
rngQuelle.Copy Destination:=wsZiel.Cells(letzteZeile, 1)

Loop

MsgBox "Zusammenführung abgeschlossen."
End Sub
```

4. Schließe den VBA-Editor und kehre zu Excel zurück.
5. Führe das Makro aus, indem du `Alt + F8` drückst, das Makro `Zusammenführen` auswählst und auf `Ausführen` klickst.

Dieses Makro fordert dich auf, den Namen des Zielblatts einzugeben, und dann in einer Schleife den Namen der Quellblätter und die Bereiche, die du kopieren möchtest. Es fügt die kopierten Bereiche untereinander im Zielblatt ein. Die Schleife endet, wenn du im Eingabefeld für den Namen des Quellblatts auf "Abbrechen" klickst.