Gruppe
Dialog
Problem
Wie kann ich eine Tabellenblatt-ListBox auf Icon-Größe verkleinern?
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