Ereignis: Dokument aktivieren

[Luftschraube]

Guten Abend

Habe ein Problem mit meiner kleinen Auftragsverwaltung. Diese besteht aus 4 Blättern(Blatt0, Blatt1, Blatt2, Blatt3). Auf Blatt2 lass ich über ein "Dokument aktivieren-Ereignis" eine Berechnung ablaufen und auf dem Bildschirm anzeigen die auch funktioniert.
Ein Problem hab ich beim Abspeichern der Anwendung. Wenn gerade Blatt0 oder Blatt1 oder Blatt3 aktiviert ist und ich speichere ab, beende das Prg und lade neu hab ich kein Problem.
Aktiviere ich aber Blatt2, die Berechnung läuft automatisch durch, ich speichere ab mit immer noch aktivem Blatt2, beende die Anwendung und lade neu, bekomme ich die Fehlermeldung "BASIC-Laufzeitfehler, Objectvariable nicht vereinbart"
Bei Prgstart setze ich natürlich die Anwendung sofort erst mal auf Blatt0, deshalb verstehe ich nicht warum sich der Interpreter mit Blatt2 überhaupt beschäftigt und Fehlermeldung bringt.

Anbei mal der Prgstart wo sofort Blatt0 eingestellt wird mit der Anweisung TCCC.Select(Blatt0.getCellByPosition(0,0))

Vielleicht hätte jemand einen Tip
vielen Dank !
Luftschraube


sub Autostart
'
TC = thisComponent
TCCC = thisComponent.CurrentController
'
Blatt0 = TC.sheets(0)
Blatt1 = TC.sheets(1)
Blatt2 = TC.sheets(2)
Blatt3 = TC.sheets(3)
'
TCCC.Select(Blatt0.getCellByPosition(0,0))
TC.lockcontrollers
'TCCC.setActiveSheet(Blatt0)
TCCC.ZoomValue = 90
'
RRHidden = true: call RRSichtbar
GRHidden = true: call GRSichtbar
LagerHidden = true: call LagerSichtbar
KapaHidden = true: call KapaSichtbar
'
call DatenbereichsFormatierungBlatt0
call AuftraegeSortieren
TC.unlockcontrollers
'
msgbox "- Sub Autostart durchgelaufen" & chr(10) & _
"- nach Liefertermin sortiert" & chr(10) & _
"- Liniengitter erstellt nach Liefertermin" & chr(10) & _
"- auf Blatt 0 und Zelle A1 eingestellt"
end sub