Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: MsgBox "" & ListBox1.Text funzt nicht

MsgBox "" & ListBox1.Text funzt nicht
01.07.2005 07:41:29
Ray
Hallo,
ich probierre grad was neues. ich habe meine Listbox auf muliselect gesetzt und gehofft, daß mir msgbox die einzelenen Auswahl anzeigt. Es wird aber gar nix angezeigt... Warum nur?
Hier mein code:

Private Sub CommandButton1_Click()
MsgBox "" & ListBox1.Text
End Sub


Private Sub UserForm_Initialize()
ListBox1.AddItem "hallo1"
ListBox1.AddItem "hallo2"
ListBox1.AddItem "hallo3"
ListBox1.AddItem "hallo4"
End Sub

Viele Grüße aus Hamburg bei 20 Grad und natürlich, wie soll es anders sein, bei Regen, ist ja klar, ist Wochenende...
Ray
Anmerkung zum Level: Excel gut - VB Anfänger, in Teilbereichen gut
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox "" & ListBox1.Text funzt nicht
01.07.2005 07:51:22
Heiko
Moin Ray,
hier mal ein Codeausschnitt wie man es machen könnte. Wobei LD_Dateien ist meine 3-spaltige ListBox ist.
Du mußt halt die Selected Eigenschaft abfragen.
For I = 0 To LD_Dateien.ListCount - 1
If LD_Dateien.Selected(I) = True Then
MsgBox LD_Dateien.List(I, 0) & " " & LD_Dateien.List(I, 1) & " " & LD_Dateien.List(I, 2)
End If
Next I
Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: MsgBox "" & ListBox1.Text funzt nicht
01.07.2005 08:41:37
ede
versuchs mal so bei CommandButton1_Click()
x = ListBox1.ListIndex
MsgBox ListBox1.List(x, 0)
viel erfolg
nicht ganz das richtige
01.07.2005 08:47:42
ray
hi ede,
das funzt nicht, da ich als ausgabe nur den zuletzt geklickten Eintrag bekomme. Ich möchte aber alle angeklickten item angezeigt bekommen.
viele grüße ray
AW: nicht ganz das richtige
01.07.2005 08:58:18
ede
habe deine anforderung nicht ganz gelesen,
versuchs mal so
If ListBox1.ListIndex &lt 0 Then
MsgBox "kein Eintrag markiert"
Else
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
x = x & ListBox1.List(i, 0)
End If
Next
MsgBox x
End If
Anzeige
danke guter tip ot
01.07.2005 09:07:37
ray
ot
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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