Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code ändern, Hilfe gesucht

Forumthread: 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
Anzeige

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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige