ListBox - nichts ausgewählt.
15.04.2021 12:16:10
David
seit längeren nutze ich in meiner ListBox eine mehrfachauswahl die automatisch in spalten geschrieben wird.
Jetzt möchte ich aber das wenn nichts ausgewählt wurde das Tabellenblatt "Softwaremodule" ausgeblendet wird.
Leider bekomme ich das nicht hin... anbei der Code.
'Softwaremodule aus ListBox in Zelle B36 eintragen
Dim i As Integer
Dim j As Integer
j = 6
For i = 0 To ListBox_Softwaremodule.ListCount - 1
If ListBox_Softwaremodule.Selected(i) Then
ThisWorkbook.Worksheets("Softwaremodule").Cells(j, 2) = ListBox_Softwaremodule.List( _
i, 0)
j = j + 1
Else
ThisWorkbook.Worksheets("Softwaremodule").Visible = False
End If
Next
Danke schon einmal!
Gruß David