Wie kann ich einen definierten Bereich aus den markierten Arbeitsblättern kopieren und in ein ausgewähltes Arbeitsblatt einfügen, VBA Application.InputBox?

Um einen definierten Bereich aus den markierten Arbeitsblättern zu kopieren und in ein ausgewähltes Arbeitsblatt einzufügen, kannst du VBA (Visual Basic for Applications) in verwenden. Hier ist ein Beispiel, wie du dies mit `Application.InputBox` erreichen kannst:

```vba
Sub CopyRangeFromSelectedSheets()
Dim ws As Worksheet
Dim targetSheet As Worksheet
Dim copyRange As Range
Dim targetRange As Range
Dim userRange As String
Dim targetSheetName As String

' 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 Zielarbeitsblatts
targetSheetName = Application.InputBox("Gib den Namen des Zielarbeitsblatts ein:", Type:=2)

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

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

' Kopieren des Bereichs von jedem markierten Arbeitsblatt
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible And ws.Name <> targetSheetName Then
Set copyRange = ws.Range(userRange)
copyRange.Copy

' Zielbereich im Zielarbeitsblatt festlegen
Set targetRange = targetSheet.Cells(targetSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)

' Einfügen des kopierten Bereichs
targetRange.PasteSpecial Paste:=xlPasteAll
End If
Next ws

' Zwischenablage leeren
Application.CutCopyMode = False

MsgBox "Bereich wurde erfolgreich kopiert und eingefügt.", vbInformation
End Sub
```

Dieses Makro führt folgende Schritte aus:
1. Es fordert den Benutzer auf, den zu kopierenden Bereich und den Namen des Zielarbeitsblatts einzugeben.
2. Es überprüft, ob das Zielarbeitsblatt existiert.
3. Es durchläuft alle sichtbaren Arbeitsblätter (außer dem Zielarbeitsblatt) und kopiert den angegebenen Bereich.
4. Es fügt den kopierten Bereich in das Zielarbeitsblatt ein, jeweils unterhalb des letzten eingefügten Bereichs.

Stelle sicher, dass du das Makro in einem Modul in der VBA-Umgebung von Excel einfügst und ausführst.