Probieren selbst etwas aus klappt leider bis jetzt nicht so richtig, aus einer Arbeitsmappen müssen 2 Tabelle in ein neue Arbeitsmappe Verzeichnis kopiert werden Tabelle Import und Tabelle form Kopieren in Verzeichnis funktioniert mit zellwert , aber nur mit Tabelleblatt form die Tabelle import wird leider nicht in gleiche Arbeitsmappen mit Kopiert. WICHTIG beim kopieren nur werte und Format Kopieren.
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
Sub UnterNamenSpeichern()
Dim TB As Worksheet
Dim dName$
Set ws1 = ThisWorkbook.Worksheets("import")
Set ws2 = ThisWorkbook.Worksheets("form")
ws1.Range("A1:D20").Copy
ws2.Copy
dName = "c:\Order\" & _
ws1.Range("A1") & " " & _
ws1.Range("A2") & " " & _
ws1.Range("A3") & ".xls"
ActiveWorkbook.SaveAs dName
ActiveWorkbook.Close dName
Set ws1 = Nothing
Set ws2 = Nothing
End Sub
Grusse
Karel