Tabellenblattwechsel soll Timer-Stopp erwirken
14.06.2005 23:52:31
reiner
Beim Öffnen einer Exceldatei wird gleichzeitig eine Userform mit mehreren Schaltflächen geladen und eine Zeiteinheit gestartet. Nach Ablauf von 20 sek schließt diese Userform automatisch falls in diesem Zeitraum wider Erwarten keine Schaltfläche betätigt wurde.
Bei einem Wechsel des Tabellenblatts innerhalb dieser 20 sek wird die UserForm ausgeblendet; die Zeit zählt jedoch weiter rückwärts bis auf 0 sek. Ich würde gern die Zeiteinheit stoppen wenn ein anderes Tabellenblatt gewählt wurde.
--------------
Im VBA-Projektexplorer erscheint unter MS EXCEL Objekte als erster Eintrag Diese Arbeitsmappe; in diesem Projektordner ist der Programmcode zur Erkennung des Tabellenblattwechsels gespeichert:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If UserForm1.Visible Then UserForm1.Hide
End Sub
-------------
Unter Formulare -->UserForm1 enthält der Programmcode den über eine Befehlsschaltfläche ausgelösten Befehl: Call KillTimer(hwnd, 0). Die eigentliche Funktion ist im zugehörigen Modul direkt unter: Option Explicit abgespeichert mit dem Code: Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Ich hoffe meine Beschreibung ist verständlich; es wäre wunderbar wenn jemand einen Vorschlag zur Lösung meines Problems unterbreiten könnte.
Gruß reiner
Anzeige