Hallo

Ich möchte markierte Zellen (von Auftrag zu Auftrag unterschiedlich) und die Spaltenüberschriften (A8:V10) in ene neue Datei übertragen.

Sub CopyAndSave()
'Dim strPfad As String
'Dim strFileName As String
Dim wkb, wkbNew As Workbook
Zielpath = "C:\Temp"
Set wkb = ThisWorkbook
With Selection.Copy
End With
Set wkbNew = Application.Workbooks.Add
wkbNew.Sheets(1).Paste Destination:=wkbNew.Sheets(1).Range("$A$3")
With ActiveSheet.UsedRange.Cells
.Value = .Value
End With
Application.CutCopyMode = False

Zur Zeit kopier ich die markierten Zellen wie folgt in eine neue Datei, das Blatt in der Ausgangsdatei hat immer einen anderen Namen, (Datumsbasiert)

Wie muss ich die Copy und Past code anpassen damit die Spalten überschriten auch mit kopiert werden.

Danke Horst