Userform Objekt ausblenden wenn

Möchte man in VBA ein Userform Objekt ausblenden wenn auf eine bestimmte Art und Weise mit dieser interagiert wird, kann dies wie folgt bewerkstelligt werden. Am Beispiel einer ComboBox.

'Initialisierung / Einrichtung der Userform
Private Sub UserForm_Initialize()

    'Combobox füllen
    With Me.cboAusfuehrung
        .AddItem "Walzen"
        .AddItem "Schweißen"
        .ListIndex = 0 'Vorbelegung
    End With
    
    'Combobox füllen
    With Me.cboSchweissen
        .AddItem "WIG"
        .AddItem "MAG"
        .ListIndex = 0 'Vorbelegung
    End With
    
    If Me.cboAusfuehrung = "Walzen" Then
        Me.cboSchweissen.Visible = False
    Else
        Me.cboSchweissen.Visible = True
    End If
  
End Sub

'Update der ComboBox
'wird ausgeführt wenn diese aktualisiert wird
Private Sub cboAusfuehrung_Change()
    If Me.cboAusfuehrung = "Schweißen" Then
        cboSchweissen.Visible = True
    Else
        cboSchweissen.Visible = False
    End If
End Sub

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

17 − fünfzehn =