2 Fragen zu Datenkopieren

Um in VBA Daten zu kopieren und dabei einen variablen Dateinamen zu verwenden, kannst du den folgenden Code verwenden. Dieser Code zeigt, wie du Daten aus einer Quelle kopierst und in eine neue Datei mit einem variablen Namen einfügst: ```vba Sub KopiereDatenMitVariablemDateinamen() Dim Quelle As Workbook Dim Ziel As Workbook Dim ZielDateiName As String Dim ZielPfad As String ' Setze den Pfad und den Dateinamen für die Zieldatei ZielPfad = "C:\Dein\Pfad\" ZielDateiName = "Zieldatei_" & Format(Now, "YYYYMMDD_HHMMSS") & ".xlsx" ' Öffne die Quelldatei Set Quelle = Workbooks.Open("C:\Dein\Pfad\Quelldatei.xlsx") ' Erstelle eine neue Arbeitsmappe für die Zieldatei Set Ziel = Workbooks.Add ' Kopiere die Daten von der Quelle zur Zielarbeitsmappe Quelle.Sheets(1).UsedRange.Copy Destination:=Ziel.Sheets(1).Range("A1") ' Speichere die Zielarbeitsmappe mit dem variablen Dateinamen Ziel.SaveAs Filename:=ZielPfad & ZielDateiName ' Schließe die Arbeitsmappen Quelle.Close SaveChanges:=False Ziel.Close SaveChanges:=True ' Gib eine Bestätigung aus MsgBox "Daten wurden erfolgreich kopiert und in " & ZielDateiName & " gespeichert." End Sub ``` In diesem Beispiel wird eine Quelldatei geöffnet, die Daten aus dem ersten Arbeitsblatt kopiert und in eine neue Arbeitsmappe eingefügt. Die neue Arbeitsmappe wird dann mit einem variablen Dateinamen gespeichert, der das aktuelle Datum und die Uhrzeit enthält. Passe den Pfad und die Dateinamen nach Bedarf an.

Um mit VBA Daten zeilenweise aus mehreren Tabellenblättern in eine Gesamttabelle zu kopieren, kannst du folgenden Ansatz verwenden: 1. **Alle relevanten Tabellenblätter durchlaufen** 2. **Die Datenzeilen (z.B. ab Zeile 2, wenn Zeile 1 Überschriften enthält) kopieren** 3. **Diese Zeilen untereinander in ein Sammelblatt einfügen** Hier ein Beispielcode, der das veranschaulicht: ```vba Sub DatenZusammenfassen() Dim wsZiel As Worksheet Dim wsQuelle As Worksheet Dim letzteZeileZiel As Long Dim letzteZeileQuelle As Long Dim i As Long ' Name des Sammelblatts Set wsZiel = ThisWorkbook.Sheets("Gesamttabelle") wsZiel.Cells.Clear ' Gesamttabelle leeren (optional) ' Überschriften aus erstem Blatt kopieren (optional) ThisWorkbook.Sheets(1).Rows(1).Copy wsZiel.Rows(1) letzteZeileZiel = 2 ' Startzeile für Daten ' Alle Blätter durchlaufen (außer Gesamttabelle) For Each wsQuelle In ThisWorkbook.Worksheets If wsQuelle.Name <> wsZiel.Name Then letzteZeileQuelle = wsQuelle.Cells(wsQuelle.Rows.Count, 1).End(xlUp).Row ' Datenzeilen kopieren (ab Zeile 2) If letzteZeileQuelle > 1 Then wsQuelle.Rows("2:" & letzteZeileQuelle).Copy wsZiel.Rows(letzteZeileZiel) letzteZeileZiel = letzteZeileZiel + (letzteZeileQuelle - 1) End If End If Next wsQuelle MsgBox "Daten wurden erfolgreich zusammengefasst!" End Sub ``` **Hinweise:** - Passe `"Gesamttabelle"` ggf. an den Namen deines Sammelblatts an. - Die Überschriften werden nur einmal aus dem ersten Blatt übernommen. - Die Daten werden ab Zeile 2 eingefügt, damit die Überschrift erhalten bleibt. - Der Code geht davon aus, dass die Daten in Spalte A beginnen und keine Leerzeilen dazwischen sind. Weitere Informationen zu VBA findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel). Falls du spezielle Anforderungen hast (z.B. bestimmte Spalten, Filter, etc.), kann der Code entsprechend angepasst werden.