Einzelne Bereiche in verschiedenen Blättern in ein neues Blatt in Excel mittels VBA übertragen?

Um einzelne Bereiche aus verschiedenen Blättern in ein neues Blatt in Excel mittels VBA zu übertragen, kannst du folgenden VBA-Code verwenden. Dieser Code kopiert spezifische Bereiche aus mehreren Blättern und fügt sie in ein neues Blatt ein:

1. Öffne Excel und drücke `Alt + F11`, um den VBA-Editor zu öffnen.
2. Wähle `Einfügen` > `Modul`, um ein neues Modul zu erstellen.
3. Füge den folgenden Code in das Modul ein:

```vba
Sub KopiereBereiche()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim ZielZeile As Long
Dim Bereich As Range

' Neues Blatt erstellen oder vorhandenes Blatt leeren
On Error Resume Next
Set wsZiel = Worksheets("Zusammenfassung")
On Error GoTo 0
If wsZiel Is Nothing Then
Set wsZiel = Worksheets.Add
wsZiel.Name = "Zusammenfassung"
Else
wsZiel.Cells.Clear
End If

ZielZeile = 1

' Liste der Quellblätter und Bereiche
Dim QuellBlätter As Variant
Dim Bereiche As Variant

QuellBlätter = Array("Blatt1", "Blatt2", "Blatt3") ' Namen der Quellblätter
Bereiche = Array("A1:B2", "C3:D4", "E5:F6") ' Bereiche, die kopiert werden sollen

' Schleife durch die Quellblätter und Bereiche
For i = LBound(QuellBlätter) To UBound(QuellBlätter)
Set wsQuelle = Worksheets(QuellBlätter(i))
Set Bereich = wsQuelle.Range(Bereiche(i))

' Bereich kopieren und in das Zielblatt einfügen
Bereich.Copy Destination:=wsZiel.Cells(ZielZeile, 1)

' Zielzeile für den nächsten Bereich anpassen
ZielZeile = ZielZeile + Bereich.Rows.Count + 1
Next i

MsgBox "Bereiche wurden erfolgreich kopiert!"
End Sub
```

4. Schließe den VBA-Editor und kehre zu Excel zurück.
5. Drücke `Alt + F8`, wähle `KopiereBereiche` und klicke auf `Ausführen`.

Dieser Code erstellt ein neues Blatt namens "Zusammenfassung" (oder leert es, falls es bereits existiert) und kopiert die angegebenen Bereiche aus den Quellblättern in das neue Blatt. Passe die Arrays `QuellBlätter` und `Bereiche` entsprechend deinen Anforderungen an.