Wie kann ich aus markierten Arbeitsblättern einen definierten Bereich auswählen und kopieren (VBA)?

Um in VBA einen definierten Bereich aus markierten Arbeitsblättern auszuwählen und zu kopieren, kannst du den folgenden Code verwenden. Dieser Code geht davon aus, dass du mehrere Arbeitsblätter markiert hast und einen bestimmten Bereich (z.B. "A1:D10") kopieren möchtest:

```vba
Sub CopyRangeFromSelectedSheets()
Dim ws As Worksheet
Dim CopyRange As Range
Dim DestinationSheet As Worksheet
Dim DestinationRange As Range
Dim LastRow As Long

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

' Erstelle ein neues Arbeitsblatt für die Kopien
Set DestinationSheet = ThisWorkbook.Worksheets.Add
DestinationSheet.Name = "Kopierte Daten"

' Initialisiere die Zielzelle
Set DestinationRange = DestinationSheet.Range("A1")

' Schleife durch alle markierten Arbeitsblätter
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible And ws.Selected Then
' Finde die letzte gefüllte Zeile im Zielblatt
LastRow = DestinationSheet.Cells(DestinationSheet.Rows.Count, "A").End(xlUp).Row

' Kopiere den Bereich und füge ihn in das Zielblatt ein
CopyRange.Copy DestinationRange.Offset(LastRow, 0)

' Aktualisiere die Zielzelle für die nächste Kopie
Set DestinationRange = DestinationSheet.Cells(DestinationSheet.Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
Next ws

' Auswahl aufheben
Application.CutCopyMode = False
End Sub
```

Dieser Code erstellt ein neues Arbeitsblatt namens "Kopierte Daten" und kopiert den Bereich "A1:D10" von jedem markierten Arbeitsblatt in dieses neue Arbeitsblatt. Die kopierten Daten werden untereinander eingefügt.

Weitere Informationen zu VBA findest du auf der offiziellen Microsoft-Dokumentationsseite: [Microsoft VBA Documentation](https://docs.microsoft.com/de-de/office/vba/api/overview/excel).