Hallo zusammen,
habe mir ein VBA geschrieben,
das funktioniert auch.
Ich kann die Mappe auch als neue Datei speichern, nur leider möchte ich nicht nur die Bezeichnung und das Datum als Dateiname haben, sondern auch die Uhrzeit!
Folgendes Format würde ich mir auch wünschen!
File = format(date, "YYYYMMDD") & format(time, "HHMMSS")
Anbei der VBA:
----------------
Dim wkbQ As Workbook
Dim wksQ As Worksheet
Dim wkbZ As Workbook 'Arbeitsmappe
Dim wksZ As Worksheet
Dim strPfad As String
strPfad = "SPEICHERORT"
Set wkbQ = ThisWorkbook
Set wksQ = wkbQ.Worksheets("Query 1")
Set wkbZ = Workbooks.Add(xlWBATWorksheet)
Set wksZ = wkbZ.Worksheets(1)
wksQ.Cells.Copy _
wksZ.Cells(1)
wksZ.Name = wksQ.Name
wkbZ.SaveAs strPfad & "Query 1" & Date & Time & ".xls"wkbZ.Close
'''''Tabelle Query1 in neuer Datei gespeichert''''''''''''''''''''
Es wäre genial wenn Ihr mir helfen könntet!
Ein herzlichen DANKESCHÖN
Grüße
Felix
