Inhalte von Listbox mit Tabellenwerten verbinden
30.07.2015 11:51:39
Listbox
ich habe in meinem Tabellenblatt_1 (Modell) eine Listbox erstellt, die mit Inhalten aus meinem Tabellenblatt_3 (Datenbank) gefüllt ist. Der Code sieht wie folgt aus:
Sub Listbox1_click()
ListBox1.Clear
ListBox1.ColumnCount = 4
Dim i, a
a = 0
For i = 1 To Worksheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.AddItem
ListBox1.List(a, 0) = Worksheets("Datenbank").Cells(i, 1)
ListBox1.List(a, 1) = Worksheets("Datenbank").Cells(i, 2)
ListBox1.List(a, 2) = Worksheets("Datenbank").Cells(i, 8)
ListBox1.List(a, 3) = Format(Worksheets("Datenbank").Cells(i, 9), "0.00")
a = a + 1
Next i
End Sub
Nun möchte ich aber die bestimmten Inhalte der Listbox auswählen können und die dazugehörigen Werte aus meiner Datenbank in mein Tabellenblatt_1 anzeigen lassen.
Also wenn ich den ersten Eintrag der Listbox ausgewählt habe, soll die erste Reihe aus meiner Datenbank eingefügt werden usw.
Leider weiß ich nicht sor echt, wie ich das hinbekommen kann.
Danke und Gruß
Robin
Anzeige