Ich habe 2 Schaltflächen.
Eine normale zum einfachen klicken...
eine Umschaltfläche - um etwas ein/auszuschalten
Beiden Schaltflächen habe ich das gleiche Makro beim Mausklick gegeben "btnGedrueckt"
Code: Alles auswählen
Sub btnGedrueckt ( event )
Dim oChkBox as Object
oChkBox = Event.Source.Model
if oChkBox.State = 1 then
Text="an"
else
Text="aus"
End If
' msgbox (Text)
' msgbox "Text"
End Sub
Doch sobald ich z.B. eine Msgbox oder ein Print ausführe, klemmt die Umschaltfläche.
Der Status bleibt auf 0... nach ein paar Klicks geht er auf 1 und dann nicht mehr zurück.
Die Msgbox muß noch nichteinmal etwas mit dem Event zu tun haben.
Anderer Code dazuschreiben funktioniert.
Ist das ein Programmfehler, oder mach ich da was falsch??