Office: Workbook_SheetChange im AddIn

Hiho,

da mir Excel2000 in der letzten Zeit mehrfach abgeschmiert ist und dabei einige Stunden Arbeit draufgegangen sind, suche ich eine Möglichkeit eine aktuelle Version als Kopie temporär zu speichern.

Word tut das ja selbständig, für Excel habe ich nur die "Sicherungskopie" gefunden, die lediglich die alte Version speichert.

Daher will ich mir ein Makro schreiben, das das für mich macht. So weit bin ich bereits:

Code:

Das ganze tut's prächtig, so lange es in "DieseArbeitsmappe" der entsprechenden Datei liegt. Ich würde das aber gerne als Makro laufen lassen, nur da greifen die Events nicht *frown.gif*

PS: ein bereits existierendes AddIn, das mir mit dem Workbook_Open(...)-Event einige Tastenkombinationen abfängt, funktioniert einwandfrei.

:)

 

Hallo ,

Logisch. Vermutlich nimmst Du Application.OnKey dafür? Es bezieht sich also auf die Application - also die aktive Excelinstanz und funktioniert demzufolge arbeitsmappenunabhängig.
Deine Ereignisprozedur Workbook_SheetChange bezieht sich aber auf die Mappe, in der sie steht - also das Add-In. Sie springt folglich nur an, wenn Du innerhalb eines Worksheets des Add-Ins etwas ändern würdest.

Folgender Weg könnte zum Ziel führen (Klassenmodul "DieseArbeitsmappe" des Add-Ins):
Code:

Also: Beim Starten des Add-Ins wird einer Variable die aktive Instanz zugeordnet. Wird ein Workbook aktiviert, wird einer weiteren Variablen dieses zugewiesen. Wird innerhalb dieses Workbooks nun eine Änderung durchgeführt, registriert das die dazugehörige Ereignisprozedur.

Grüße
EarlFred

 

Vielen Dank!

Vor allem für die Erklärung.

 

Hallo,

es reicht übrigens auch:
Code:

Das Application-Objekt bringt dieses Ereignis ja ebenfalls schon mit, das war mir vorhin entfallen.

Grüße
EarlFred

 

Wie schon gesagt: eine schöne und gut erklärte Lösung.


Wenn ich's per Copy&Paste in den Code packe, klappt es auch ganz prima.

Problem: Wenn ich den Rest meines Makros, hauptsächlich "Application.OnKey" mit reinnehme, ruft er das Workbook_Open()-Event nicht mehr auf.

Hat sich erledigt, lag an diversen Fehlerchen, die sich über Copy&Paste eingeschlichen hatten.

Lösung: Ausschlafen, Augen auf und Kopf an!