1 Frage 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.