Aktuell Arbeit ich an einer ListBox an der mann mehrere "Softwaremodule" anwählen kann. Alle angewählten Softwaremodule sollen in dem Tabellenblatt "Softwaremodule" in der Spalte C (3) ab Zeile 8 eingetragen werden. Jedes Modul in eine Zeile, wenn ich also zb. 4 Module in der Listbox angewählt habe sollte es so aussehen:
Spalte C / Zeile 8: Modul 1
Spalte C / Zeile 9: Modul 2
Spalte C / Zeile 10: Modul 3
Spalte C / Zeile 11: Modul 4
Leider bekomme ich es so nicht hin mit meinem Code...
Dim i As Long
With ListBox_Softwaremodule
For i = 0 To .ListCount - 1
If .Selected(i) Then
ThisWorkbook.Worksheets("Softwaremodule").Cells(3, i + 1) = _
ListBox_Softwaremodule.List(i)
End If
Next i
End With
Ich hoffe hier auf Hilfe von euch, da ich echt am verzweifeln bin.
Danke schonmal,
Gruß david