ListBox1 & ListBox2 _Change
20.07.2021 21:07:31
Milan
ich habe in UserForm ListBox1 und ListBox2 und mit einem im Netz gefundenen Code möchte ich ein CommandButton1.Enabled = False oder True schalten.
Private Sub ListBox2_Change()
Dim bButtonTrue As Boolean, ii As Integer
With Me.ListBox2
For ii = 0 To .ListCount - 1
If .Selected(ii) = True Then
bButtonTrue = True
Exit For
End If
Next
If bButtonTrue = True Then
CommandButton1.Enabled = True 'Button aktivieren-wenn in ListBox min 1 Eintrag
Else
CommandButton1.Enabled = False 'Button deaktivieren-wenn in ListBox kein Eintrag oder abgewählt würde
End If
End With
End Sub
Ich möchte gerne die Abfrage für ListBox1 und ListBox2 gleichzeitig ausführen aber ich weis es nicht wie ich das veranstalten soll.
Die Frage ist wenn in ListBox1 und ListBox2 mindestens eine Markierung vorhanden erst dann CommandButton1.Enable = True
Gruß