Wie kopiere ich mit VBA einen definierten Bereich aus allen markierten Blättern in ein ausgewähltes Arbeitsblatt?

Um in VBA einen definierten Bereich aus allen markierten Blättern zu kopieren und in ein ausgewähltes Arbeitsblatt einzufügen, kann der folgende Code werden. Dieser Code nutzt `Application.InputBox`, um den Bereich und das Zielarbeitsblatt zu definieren:

```vba
Sub KopiereBereichVonMarkiertenBlaettern()
Dim ws As Worksheet
Dim ZielWs As Worksheet
Dim Bereich As Range
Dim ZielZelle As Range
Dim BereichAdresse As String
Dim ZielWsName As String
Dim ZielAdresse As String

' Bereich auswählen
BereichAdresse = Application.InputBox("Bitte den zu kopierenden Bereich eingeben (z.B. A1:D10):", Type:=8).Address

' Zielarbeitsblatt auswählen
ZielWsName = Application.InputBox("Bitte den Namen des Zielarbeitsblatts eingeben:", Type:=2)

' Zielzelle auswählen
ZielAdresse = Application.InputBox("Bitte die Zielzelle im Zielarbeitsblatt eingeben (z.B. A1):", Type:=8).Address

' Überprüfen, ob das Zielarbeitsblatt existiert
On Error Resume Next
Set ZielWs = ThisWorkbook.Worksheets(ZielWsName)
On Error GoTo 0

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

' Zielzelle im Zielarbeitsblatt festlegen
Set ZielZelle = ZielWs.Range(ZielAdresse)

' Durch alle markierten Blätter iterieren und den Bereich kopieren
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible And ws.Name <> ZielWsName Then
ws.Range(BereichAdresse).Copy ZielZelle
' Zielzelle für den nächsten Einfügevorgang anpassen (z.B. nach unten verschieben)
Set ZielZelle = ZielZelle.Offset(ws.Range(BereichAdresse).Rows.Count, 0)
End If
Next ws

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

Dieser Code führt folgende Schritte aus:
1. Fragt den Benutzer nach dem zu kopierenden Bereich.
2. Fragt den Benutzer nach dem Namen des Zielarbeitsblatts.
3. Fragt den Benutzer nach der Zielzelle im Zielarbeitsblatt.
4. Überprüft, ob das Zielarbeitsblatt existiert.
5. Iteriert durch alle sichtbaren Arbeitsblätter (außer dem Zielarbeitsblatt) und kopiert den definierten Bereich in das Zielarbeitsblatt.

Bitte sicherstellen, dass die Eingaben korrekt sind, um Fehler zu vermeiden.