Wie kann ich mehrere Blätter auswählen, aus diesen gleichzeitig einen definierten Bereich kopieren und in ein ausgewähltes Blatt einfügen?

Um in Excel VBA mehrere Blätter auszuwählen, einen definierten Bereich aus diesen Blättern zu kopieren und in ein ausgewähltes Blatt einzufügen, kann der folgende Code verwendet werden. Dieser Code nutzt `Application.InputBox`, um den Benutzer zur Eingabe des Bereichs und des Zielblatts aufzufordern:

```vba
Sub CopyRangeFromMultipleSheets()
Dim ws As Worksheet
Dim targetSheet As Worksheet
Dim targetRange As Range
Dim sourceRange As Range
Dim userRange As String
Dim targetSheetName As String
Dim lastRow As Long

' Eingabe des zu kopierenden Bereichs
userRange = Application.InputBox("Gib den Bereich ein, der kopiert werden soll (z.B. A1:D10):", Type:=8).Address

' Eingabe des Zielblatts
targetSheetName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)

' Überprüfen, ob das Zielblatt existiert
On Error Resume Next
Set targetSheet = ThisWorkbook.Sheets(targetSheetName)
On Error GoTo 0

If targetSheet Is Nothing Then
MsgBox "Das Zielblatt existiert nicht.", vbExclamation
Exit Sub
End If

' Schleife durch alle Blätter außer dem Zielblatt
For Each ws In ThisWorkbook.Sheets
If ws.Name <> targetSheetName Then
' Bereich auf dem aktuellen Blatt festlegen
Set sourceRange = ws.Range(userRange)

' Letzte belegte Zeile im Zielblatt finden
lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1

' Bereich kopieren und einfügen
sourceRange.Copy Destination:=targetSheet.Cells(lastRow, 1)
End If
Next ws

MsgBox "Bereich wurde erfolgreich kopiert.", vbInformation
End Sub
```

Dieser Code führt folgende Schritte aus:

1. Fordert den Benutzer auf, den zu kopierenden Bereich einzugeben.
2. Fordert den Benutzer auf, den Namen des Zielblatts einzugeben.
3. Überprüft, ob das Zielblatt existiert.
4. Durchläuft alle Blätter außer dem Zielblatt.
5. Kopiert den definierten Bereich von jedem Blatt und fügt ihn in das Zielblatt ein, wobei die Daten untereinander eingefügt werden.

Weitere Informationen zu `Application.InputBox` findest du in der [Microsoft-Dokumentation](https://docs.microsoft.com/de-de/office/vba/api/excel.application.inputbox).