Verschiedene Blätter und Bereiche in Excel per VBA auswählen und in ein neues Blatt einfügen?

Um verschiedene Blätter auszuwählen, Bereiche auszuwählen und diese in ein neu definiertes Blatt Excel im definierten Bereich einzufügen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist ein Beispielskript, das dies tut:

```vba
Sub CopyRangesToNewSheet()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim newSheet As Worksheet
Dim rng1 As Range, rng2 As Range, rng3 As Range
Dim destRange As Range

' Set the worksheets
Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")
Set ws3 = ThisWorkbook.Sheets("Sheet3")

' Set the ranges to copy
Set rng1 = ws1.Range("A1:B10")
Set rng2 = ws2.Range("C1:D10")
Set rng3 = ws3.Range("E1:F10")

' Add a new sheet
Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
newSheet.Name = "CombinedData"

' Define the destination ranges in the new sheet
Set destRange = newSheet.Range("A1")
rng1.Copy destRange

Set destRange = newSheet.Range("A12")
rng2.Copy destRange

Set destRange = newSheet.Range("A23")
rng3.Copy destRange

' Optional: Autofit columns in the new sheet
newSheet.Columns.AutoFit
End Sub
```

Dieses Skript führt folgende Schritte aus:

1. Es definiert drei Arbeitsblätter (`ws1`, `ws2`, `ws3`) und die entsprechenden Bereiche (`rng1`, `rng2`, `rng3`), die kopiert werden sollen.
2. Es erstellt ein neues Arbeitsblatt (`newSheet`) und benennt es "CombinedData".
3. Es kopiert die definierten Bereiche in das neue Arbeitsblatt an die angegebenen Zielbereiche (`destRange`).
4. Optional: Es passt die Spaltenbreite im neuen Arbeitsblatt automatisch an.

Du kannst die Blattnamen und Zellbereiche nach Bedarf anpassen.