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

2 + dreizehn =