Wie kopiere ich gleichzeitig einen definierten Bereich aus ausgewählten Blättern in ein ausgewähltes Blatt mit VBA und Application.InputBox?

Um in VBA (Visual Basic for Applications) einenerten Bereich aus ausgewählten Blättern zu kopieren und in ein ausgewähltes Blatt einzufügen, kann die `Application.InputBox` verwendet werden, um den Bereich und das Zielblatt zu spezifizieren. Hier ist ein Beispiel, wie das gemacht werden kann```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

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

' Eingabeaufforderung für das Zielblatt
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 ausgewählten Blätter
For Each ws In ThisWorkbook.Sheets
If ws.Visible = xlSheetVisible Then
' Bereich kopieren
Set copyRange = ws.Range(userRange)
copyRange.Copy

' Zielbereich festlegen (hier wird angenommen, dass der Zielbereich die gleiche Größe hat)
Set targetRange = targetSheet.Cells(1, 1).Resize(copyRange.Rows.Count, copyRange.Columns.Count)

' Bereich einfügen
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 Skript führt folgende Schritte aus:
1. Es fordert den Benutzer auf, den zu kopierenden Bereich und das Zielblatt anzugeben.
2. Es überprüft, ob das Zielblatt existiert.
3. Es durchläuft alle sichtbaren Blätter im Arbeitsbuch und kopiert den angegebenen Bereich.
4. Es fügt den kopierten Bereich in das Zielblatt ein.

Bitte beachte, dass dieses Beispiel davon ausgeht, dass der Zielbereich im Zielblatt immer bei Zelle A1 beginnt und die gleiche Größe wie der kopierte Bereich hat. Anpassungen können je nach spezifischen Anforderungen vorgenommen werden.