Abfrage, ob ein Button in einer UserForm gedrückt wurde

 

Jedes Steuerelement (auch der Button) hat die Eigenschaft TAG.

 

Dieser Eigenschaft lässt sich ein beliebiger Wert zuweisen, der zu einem späteren Zeitpunkt wieder abgefragt werden kann. 

 

Das nachfolgende Makro weist nach einem Klick auf den Button der Eigenschaft TAG den Wert "ok" zu. 

 

Dieser Wert lässt sich dann zu jedem beliebigen Zeitpunkt abfragen. Voraussetzung ist allerdings, dass die UserForm beim Schließen nicht entladen (Unloade Me)  sondern nur ausgeblendet (userform.hide) wird.  

 



Private Sub CommandButton1_Click()
Me.Tag = "ok"
UserForm1.hide
If Me.Tag = "ok" Then MsgBox "Gedrückt"
End Sub

 

Der Wert "ok" kann nun in jeder anderen Sub-Prozedur abgefragt werden.