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

 

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.  

 

{codecitation}

Private Sub CommandButton1_Click()

Me.Tag = "ok"

UserForm1.hide

If Me.Tag = "ok" Then MsgBox "Gedrückt"

End Sub

{/codecitation}

 

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