Das Archiv des Excel-Forums

Code ändern, Hilfe gesucht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

Betrifft: Code ändern, Hilfe gesucht
von: Jens

Geschrieben am: 08.10.2003 15:01:49

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
Bild


Betrifft: AW: Code ändern, Hilfe gesucht
von: Nike
Geschrieben am: 08.10.2003 15:09:24

Hi,

einfach mal den Comment Text auslesen ;-)

strTmp = Worksheets("Leistungsstamm").Cells(intRow, 8).Comment.Text

Bye

Nike


 Bild