Daten aus ListBox auslesen

Sam85 · 3. Juli 2017, 20:15

Hallo,

ich habe eine Frage.
Ich möchte Daten aus einer ListBox in die Zeilen A1,B1,C1 etc. (also wie einen Header) auslesen, bzw. in die Zellen eintragen.
Wie richte ich den Befehl dafür ein.

Freue mich über Feedback.

Naoki Daisuke · 3. Juli 2017, 22:22

Zunächst, hast du denn schon einen Ansatz wie du es machen willst bzw. hast du schon einmal Code geschrieben und dich selbst daran Probiert?

Um dein Vorhaben trz. ein wenig zu Beschleunigen, gehe ungefähr so vor, lass deine Listbox auslesen mit z.B mit For each und ordne dann deine Ausgelesenen Werte dann in deine Zeilen ein.

LG

Sam85 · 3. Juli 2017, 22:33

ich hatte an sowas gedacht (cntTherapeut ist die Anzahl der Listenobjekte)

VB.NET-Quellcode

For i = 2 To cntTherapeut
Cells(1, i) = frmTherapeut.lb_therapeut.List(i, 0)
Next i

VaporiZed · 3. Juli 2017, 23:15

Hach ja, da sind wir mal wieder.
Dein Ansatz passt doch soweit. Was funktioniert denn nicht? Wenn man davon absieht, dass man wohl Cells(i, 2).Value schreiben sollte.

Sam85 · 3. Juli 2017, 23:23

@VaporiZed
ja ich weiß

ich bin etwas unbeholfen. Also es passiert insoweit nichts außer der Fehlermeldung (siehe Bild) bei...

VB.NET-Quellcode

Cells(1, i).Value = frmTherapeut.lb_therapeut.List(i, 0)

EDIT:
Jetzt hab ich es etwas angepasst und es kommt so halbwegs das richtige Ergebnis...ich vermute der Bezug auf die Row im ListObject fehlt noch irgendwo...vorher Bild 2 nachher Bild 3.

VB.NET-Quellcode

cntTherapeut = frmTherapeut.lb_therapeut.ListCount
For i = 2 To cntTherapeut + 1
Cells(1, i).Value = ThisWorkbook.Worksheets("Therapeut").ListObjects("dt_Therapeut").ListColumns(2).DataBodyRange.Value
Next i

VaporiZed · 3. Juli 2017, 23:58

Dir fehlt ein variabler Bezug auf Deine ListBox. Cells(1, i).Value = ThisWorkbook.Worksheets("Therapeut").ListObjects("dt_Therapeut").ListColumns(2).DataBodyRange.Value: auf der rechten Seite der Zuweisung befindet sich keinerlei i.

Sam85 · 4. Juli 2017, 07:49

@VaporiZed

Ja genau

das meinte ich mit dem Bezug auf die Row (also i), ich bin mir nur uneins wo das ListRows(i) wenn es das denn überhaupt ist, hin muss.

Könnte ich auch die Option in eine For Funktion eintragen? Oder geht das am Ziel vorbei?
(Vermutlich muss ich dann den Bezug vom ListObject weg und wieder zur ListBox herstellen oder?)

VB.NET-Quellcode

fn = Replace(Me.Name, "frm", "")
Set c = Controls("lb_" & fn)
cntTherapeut = frmTherapeut.lb_therapeut.ListCount
For i = 2 To cntTherapeut + 1
For Each ListIndex In c
Cells(1, i).Value = ThisWorkbook.Worksheets("Therapeut").ListObjects("dt_Therapeut").ListColumns(2).DataBodyRange.Value
Next
Next i

VaporiZed · 4. Juli 2017, 16:37

Häwaswie?

Du willst doch einfach nur Deine ListBox-Einträge durchgehen, richtig? Dann schreib (sinngemäß):

Visual Basic-Quellcode

For i = 1 To ListBox1.ListCount
Cells(i, 1).Value = ListBox1.List(i - 1, 0)
Next

Sam85 · 4. Juli 2017, 20:10

Danke

das ist es gewesen.

Daten aus ListBox auslesen

Daten aus ListBox auslesen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben