Wie kopiere ich Daten in VBA mit variablem Dateinamen?

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.