Wie kann ich von markierten Arbeitsblättern einen definierten Bereich kopieren (VBA)?

Um in VBA von markierten Arbeitsblättern einen definierten Bereich zu kopieren, kannst du den folgenden Code verwenden. Dieser Code geht davon aus, dass du einen Bereich (z.B. "A1:B10") von jedem markierten Arbeitsblatt kopieren und in ein Zielarbeitsblatt einfügen möchtest.

```vba
Sub KopiereBereichVonMarkiertenBlättern()
Dim ws As Worksheet
Dim ZielBlatt As Worksheet
Dim Bereich As Range
Dim ZielZelle As Range
Dim LetzteZeile As Long

' Definiere den Bereich, der kopiert werden soll
Set Bereich = Range("A1:B10")

' Erstelle oder wähle das Zielarbeitsblatt
On Error Resume Next
Set ZielBlatt = Worksheets("Ziel")
If ZielBlatt Is Nothing Then
Set ZielBlatt = Worksheets.Add
ZielBlatt.Name = "Ziel"
End If
On Error GoTo 0

' Schleife durch alle markierten Arbeitsblätter
For Each ws In ActiveWindow.SelectedSheets
If ws.Name <> ZielBlatt.Name Then
' Finde die nächste freie Zeile im Zielarbeitsblatt
LetzteZeile = ZielBlatt.Cells(ZielBlatt.Rows.Count, "A").End(xlUp).Row + 1
Set ZielZelle = ZielBlatt.Cells(LetzteZeile, 1)

' Kopiere den definierten Bereich und füge ihn in das Zielarbeitsblatt ein
Bereich.Copy ZielZelle
End If
Next ws
End Sub
```

Dieser Code führt die folgenden Schritte aus:
1. Definiert den zu kopierenden Bereich (`Range("A1:B10")`).
2. Erstellt oder wählt ein Zielarbeitsblatt namens "Ziel".
3. Schleift durch alle markierten Arbeitsblätter und kopiert den definierten Bereich in das Zielarbeitsblatt, wobei die Daten untereinander eingefügt werden.

Stelle sicher, dass du den Bereich und den Namen des Zielarbeitsblatts nach deinen Bedürfnissen anpasst.