Statt Button Worksheet.Activate
11.06.2003 17:11:41
TinoS
brauch mal einen kleinen Denkanstoß, sitze schon den ganzen Tag vor Excel und jetzt zum Feierabend hin, verlässt mich meine Konzentration. Vielleicht brauch ich einfach nur einen Schokoriegel :-)
Hier mein Problem:
Ich erzeuge eine Datei, dort wird ein Button eingefügt, und der Button wird mit dem Befehl SAS1_berechnen verknüpft.
Windows(Datei).Activate
Sheets("SAS1_kumuliert").Activate
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = Datei & "!SAS1_berechnen"
Da diese Berechnungsfunktion von mir so programmiert ist, dass sie im Millisekundenbereich ausgeführt wird, soll ich jetzt die Berechnung bei jeder Blattaktivierung verwirklichen.
D.h. ich muss irgendwie die Zeile "SAS1_berechnen" in die Tabellenmodule hineinschreiben (Worksheet.Activate), mittels VBA. Von Hand geht nicht, da diese Datei automatisch erstellt wird.
Danke,
Tino S.
Anzeige