VBA userform 2 commandbuttons + Attributwert zu Variable

Question

Ich habe nur grundlegende VBA-Kenntnisse. Auf der Suche nach einer Möglichkeit, die Wahl zwischen zwei Werten "intern" oder "extern" zu treffen, würde dann je nach Ergebnis ein Teil des Codes oder ein anderer Teil laufen.

Was ist der beste Weg, dies zu erreichen?

Ich habe damit begonnen, ein Benutzerformular zu erstellen, aber wie kann der Wert type_trade zurück in das Sub-und erhalten Sie es dann für eine Wenn-dann-Anweisung zurück?

Private Sub External_Click() 
    Dim type_trade As String 
    type_trade = "external" 
End Sub 

Private Sub Internal_B2B_Click() 
    Dim type_trade As String 
    type_trade = "Internal_B2B" 
End Sub 


Private Sub UserForm_Click() 

End Sub 

Answer 1

Eine Möglichkeit, dies zu erreichen, ist wie folgt:

Private type_trade As String 

Private Sub External_Click() 
    type_trade = "external" 
End Sub 

Private Sub Internal_B2B_Click() 
    type_trade = "Internal_B2B" 
End Sub 

Private Sub SomeOtherPoint() 
    If type_trade = "Internal_B2B" Then 
     'do something 
    End If 
End Sub