Hallo,

ich will aus einer Excel Datei aus einem Zweiten Tabellen Blatt das erste Tabellen Blatt in eine neue Datei kopieren, der Dateiname steht in A1 von dem zweiten Tabellen Blatt.
Er soll mir aber nur den Inhalt und die Tabellen Formatierung kopieren, das ganze ist reiner Text also keine Diagramme oder ähnliches.

Ich habe bisher nur soviel das ich eine neue Datei erstelle, siehe hier:

Code :
1
2
3
4
5
6
7
8
9
10

Sub test()
Name = Sheets("switchbelegung").Range("A1")
 
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"c:\test\" & Name & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
 
End Sub

Ich habe schon überlegt bevor ich die neue Datei Anlege den Inhalt zu kopieren aber leider finde ich nichts passendes.
Ich bedanke mich schon mal für die Hilfe die ich hoffentlich bekomme

MFG Ronox