|
Hallo Anna,
sorry, doch kurz nach meiner Antwort hatte ich leider keine Zeit mehr den Stand der Dinge nachzulesen.
Auch jetzt habe ich nur wenig Zeit, versuche aber schnell zu helfen.
Also,
die neu erstellte Arbeitsmappe würde ich erst einmal mit zugehörigem Namen abspeichern:
hier die Variabeln zu Beginn:
Const Pfad = "C:\Daten\Tabellen\" ' Pfadname angeben und mit Bachkslash abschließen
Dim Dat0 as string
Dat0 = "Dateiname.xlsx" ' Dateiname = Name, wie die neu erstellte Datei heißen soll
Workbooks.Add
ActiveWorkbook.saveas Pfad & Dat0
'wenn du magst, kannst du jetzt noch die Tabellenblätter benennen; in der Regel erstellt Excvel ja 3 Stück - je nach Grundeinstellung - jedoch wenigstens eines
activesheet.name = "Tabellenname"
'jetzt wechselst du wieder in die Ursprungsdatei:
Windows("Ursprungsdatei").activate
'und kopierst die Daten
'dann wieder zurück zur neu erstellten Datei, Zelle auswählen (im Beispiel ist dies C3 und mit Paste oder PasteValue (nur Werte) die Daten kopieren
Windows(Dat0).activate
Cells(3,"C").select
... mein Chef drängelt - ich muss leider wieder hier weitermachen und hoffe ich konnte dir ein wenig helfen.
Gruß
Armin
|