Hallo Excelgemeinde,wer kann helfen?
Ich versuche nachfolgenden Code so zu ändern, das nicht aus ".Cells(intRow, 8)" sondern aus dem Kommentar aus ".Cells(intRow,8)" die Listbox gefüllt wird.
Hat jemand von euch eine Idee?


Dim i As Long
Dim j As Byte, k As Byte
Dim strTmp As String

j = 0
strTmp = Worksheets("Leistungsstamm").Cells(intRow, 8)
ListBox1.Clear
Do While InStr(strTmp, ";") > 0
ListBox1.AddItem
For k = 1 To 3
If InStr(strTmp, ";") > 0 Then
ListBox1.Column(j, ListBox1.ListCount - 1) = Left(strTmp, InStr(strTmp, ";") - 1)
Else
ListBox1.Column(j, ListBox1.ListCount - 1) = strTmp
End If
j = j + 1
strTmp = Mid(strTmp, InStr(strTmp, ";") + 2, Len(strTmp))
Next
j = 0
Loop


Danke Jens