Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code ändern, Hilfe gesucht

Code ändern, Hilfe gesucht
08.10.2003 15:01:49
Jens
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code ändern, Hilfe gesucht
08.10.2003 15:09:24
Nike
Hi,

einfach mal den Comment Text auslesen ;-)

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

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige