Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Beim Speichern Kopie des Tabellenblattes erstellen

Beim Speichern Kopie des Tabellenblattes erstellen
Csaba
Hallo,
ich habe ein Tabellenblatt, in dem regelmäßig Änderungen gemacht werden. Dieses soll beim Speichern zusätzlich noch an einem anderen Ort gespeichert werden. Ich benötige nur das aktive Tabellenblatt, es kann aber auch die ganze Datei gespeichert werden. Allerdings sollen dann die Makros nicht dabei sein.
Ich habe schon im Forum recherchiert und habe was gefunden für
1) Ausführen eines Makros beim Speichern der Datei
2) Erstellen der Kopie eines Tabellenblattes
Beide Komponenten funktionieren, lediglich, wenn ich sie zusammenführe hängt sich Excel in einer endlos-Schleife auf und erstellt mir eine Kopie des Blattes nach der anderen. Was ist falsch?
Hier mein Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim myPath As String
Dim myWbName As String
Application.ScreenUpdating = False
myPath = "H:\SPC_Temp\"
myWbName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
ActiveSheet.Copy
' activesheet ist nun die Kopie in der neuen Arbeitsmappe
ActiveSheet.Parent.Close True, myPath + myWbName + "_kopie.xls"
Application.ScreenUpdating = True
End Sub

Vielen Dank schon mal!!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Beim Speichern Kopie des Tabellenblattes erstellen
28.09.2009 13:56:12
Ralph
speicher nicht das Objekt ActiveSheet.Parent, sondern ActiveWorkbook
ActiveWorkbook.Close True, myPath + myWbName + "_kopie.xls"
das klappt bei mir
Ralph
AW: Beim Speichern Kopie des Tabellenblattes erstellen
28.09.2009 13:56:27
Ralph
speicher nicht das Objekt ActiveSheet.Parent, sondern ActiveWorkbook
ActiveWorkbook.Close True, myPath + myWbName + "_kopie.xls"
das klappt bei mir
Ralph
AW: Beim Speichern Kopie des Tabellenblattes erstellen
28.09.2009 13:56:31
Ralph
speicher nicht das Objekt ActiveSheet.Parent, sondern ActiveWorkbook
ActiveWorkbook.Close True, myPath + myWbName + "_kopie.xls"
das klappt bei mir
Ralph
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige