Markierung aufheben
09.12.2019 12:36:01
Thomas
ich möchte gern das bei einem Click die Markierungen aller Listboxen entfernt werden.
Außer bei der aktiven ( geklickten) Listbox nicht.
Die aktive Listbox heißt immer mobjListBox .
Public WithEvents mobjListBox As MSForms.ListBox
Public mobjUserform As Object
'-------------------------------------------------------------------------------------------------------
Friend Property Set prpSetListbox(objListBox As MSForms.ListBox)
Set mobjListBox = objListBox
End Property
'######################################################################
Private Sub mobjListBox_Click()
For se = 10 To 28
If Not monatsuche.Controls.Name("mobjListBox") Then
monatsuche.Controls("TB_Kalender" & se).ListIndex = -1
End If
End Sub
Hat jemand eine Idee für mich?
habt schon mal recht vielen dank für euer Interesse.
mfg tomas
Anzeige