VBA aktivieren - Dateiname variabel
01.12.2004 08:15:28
Silvi
Ich brauch wieder ein bisschen Nachhilfe. Folgendes, zwei Dateien müssen regelmäßig aktualisiert werden, der Dateiname ist variabel und es sollen Tabellenblätter aus einer anderen Datei in die variable Datei eingefügt werden (sh. unten)...
Sub test()
Dim pfad$, fname$
pfad = Range("L2")
fname = Range("L3") & " " & Range("F1") & " " & ("Daten svkpk1 Standar-Ist") & (".xls")
ActiveWorkbook.SaveAs pfad & fname
Application.Run ("'Datei1.xls'!aktualisieren")
Sheets(Array("Blatt Standard", "Blatt ist", "Blatt neues budget")).Select
'hier muß ich irgendwie wieder auf die Datei mit dem vorher erstellten Dateinamen kommen. Wie kann man das anstellen?
Worksheets.Copy after:=ActiveWorkbook.Worksheets(1)
End Sub
Vielen Dank schonmal! Bestimmt ganz einfach für euch... (hoffentlich)
Gruß
Silvi
Anzeige