Hallo in die Runde,
ich bin neu im Bereich Excel/VBA und schaue mir aktuell einige Unterlagen und Videos dazu an.
In einem wurde erklärt wie man eine ListBox erstellt mit mehreren Auswahlmöglichkeiten die in eine Zelle eingetragen werden.
Ich habe dies soweit jetzt hinbekommen, doch leider funktioniert dies nur mit der MSgBox was ich gerne entfernt haben möchte...
Ich hoffe jemand kann mir sagen wie ich es hinbekomme mit mehreren einträgen und ohne die MsgBox.
Hier der Code:
Dim i As Integer
With meinProjekt.ListBox_Softwaremodule
For i = 0 To .ListCount - 1
If .Selected(i) Then
MsgBox .List(i)
If ThisWorkbook.Worksheets("Zentraleinheit").Range("B36") = "" Then
ThisWorkbook.Worksheets("Zentraleinheit").Range("B36").Value = .List(i)
Else
ThisWorkbook.Worksheets("Zentraleinheit").Range("B36").Value = ThisWorkbook.Worksheets("Zentraleinheit").Range("B36").Value & " / " & .List(i)
End If
End If
Next i
End With