Gruppe
Dialog
Bereich
ComboBox
Thema
ComboBox als Symbol
Problem
Wie kann ich eine Tabellenblatt-ListBox auf Icon-Größe verkleinern?
Lösung
Geben Sie den nachfolgenden Code in die genannten Module ein und weisen Sie dem im Standardmodul einer Schaltfläche zu.
ClassModule: Tabelle1
Private Sub lstBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
lstBox.Visible = False
Shapes("objList").Visible = True
End Sub
StandardModule: Modul1
Sub objList_CLick()
With Worksheets("Tabelle1")
.lstBox.Visible = True
.Shapes("objList").Visible = False
End With
End Sub