Activesheet.Copy BeforeSave
20.03.2013 11:00:57
Bertram
ich steh grad etwas auf dem Schlauch.
Ich habe eine Datei mit mehreren Tabellenblättern. Vor dem Speichern möchte ich ein Tabellenblatt als neue Datei speichern. Dabei sollen auch alle Formeln in Werte gewandelt werden.
Normalerweise geht das Kopieren und Umwandeln ja mit
ActiveSheet.Copy
ActiveSheet.UsedRange.Copy
ActiveSheet.UsedRange.PasteSpecial xlPasteValues
Das gute daran ist ja, dass nach dem Kopieren das Tabellenblatt der neue Datei ActiveSheet ist.
Soweit so gut, aber wenn ich das in das BeforeSave-Ereignis packe, ist dem nicht so. Es wird zwar das Blatt in eine neue Datei kopiert, ist dann aber nicht ActiveSheet und in meinem Originalblatt wird der UsedRange kopiert und als Werte eingefügt.
Ist das normal, dass im BeforeSave-Ereignis (oder allen Ereignissen) das mit dem ActiveSheet nicht hinhaut?
Danke für Tips.
Gruß
Bertram