Tabelle kopieren
Tomislav
Ich habe einen VBA Code mit dem ich 2 Tabellen in eine neue Datei kopiere.
Mit dem Makrorekorder funktioniert das problemlos.
Sobald ich den Code aber in die Workbook_BeforeClose (Cancel as Boolean) Umgebung kopiere läuft mir das Teil nicht mehr
Hier der Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(Array("Controlling", "Baukostenprognose")).Select
Sheets("Controlling").Activate
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Controlling"
Sheets("Tabelle2").Select
Sheets("Tabelle2").Name = "Baukosten"
ActiveWorkbook.SaveAs Filename:= _
"L:\Persönlich\Severa\IGEL\Testabfragen\" & ActiveWorkbook.Sheets("Controlling").Cells( _
_
_
_
1, 1).Value & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Was kann hierfür die Ursache sein?
Vielen Dank vorab für die Antworten
Liebe Grüsse
Thomas
Anzeige