Selbst definierte Bereiche von ausgewählten Arbeitsblättern in ein neues Arbeitsblatt in Excel mittels VBA kopieren?

Um selbst definierte Bereiche von ausgewählten Arbeitsblättern in ein neues definiertes Arbeitsblatt in Excel mittels VBA zu kopieren, kannst du den folgenden VBA-Code verwenden. Dieser Code geht davon aus, dass du die Bereiche und die Arbeitsblätter, von denen du kopieren möchtest, bereits kennst. ```vba Sub KopiereBereiche() Dim wsQuelle As Worksheet Dim wsZiel As Worksheet Dim Bereich As Range Dim ZielZelle As Range Dim LetzteZielZeile As Long ' Neues Arbeitsblatt erstellen Set wsZiel = ThisWorkbook.Worksheets.Add wsZiel.Name = "Zusammenfassung" ' Definiere die Zielzelle, wo die Daten eingefügt werden sollen Set ZielZelle = wsZiel.Cells(1, 1) ' Arbeitsblatt 1, Bereich A1:B10 kopieren Set wsQuelle = ThisWorkbook.Worksheets("Arbeitsblatt1") Set Bereich = wsQuelle.Range("A1:B10") Bereich.Copy ZielZelle ' Nächste freie Zeile im Zielarbeitsblatt finden LetzteZielZeile = wsZiel.Cells(wsZiel.Rows.Count, 1).End(xlUp).Row + 1 Set ZielZelle = wsZiel.Cells(LetzteZielZeile, 1) ' Arbeitsblatt 2, Bereich C1:D10 kopieren Set wsQuelle = ThisWorkbook.Worksheets("Arbeitsblatt2") Set Bereich = wsQuelle.Range("C1:D10") Bereich.Copy ZielZelle ' Weitere Bereiche und Arbeitsblätter können hier hinzugefügt werden ' ... ' Formatierung anpassen (optional) wsZiel.Columns.AutoFit End Sub ``` Dieser Code erstellt ein neues Arbeitsblatt namens "Zusammenfassung" und kopiert die definierten Bereiche aus den angegebenen Arbeitsblättern in dieses neue Arbeitsblatt. Du kannst den Code erweitern, um weitere Bereiche und Arbeitsblätter hinzuzufügen, indem du die entsprechenden Zeilen kopierst und anpasst. Weitere Informationen zu VBA in Excel findest du auf der offiziellen Microsoft-Dokumentationsseite: [Microsoft VBA Documentation](https://docs.microsoft.com/de-de/office/vba/api/overview/excel).