Listbox in UF zeigt nur eine Spalte an
05.02.2023 13:51:56
Rommi
ich bin am Verzweifeln, weil ich nicht weiß was ich falsch mache. Ich habe diverse Anleitungen aus dem Internet befolgt, wie ich eine Listbox in einer Userform erstelle. Jedoch bei allem was ich probiere zeigt mir die Userform beim Ausführen nur eine Spalte an. Ich möchte insgesamt 3 Spalten dargestellt bekommen aus meiner Tabelle (VorsorgeID, Nr., Vollständiger Name). Vielleicht habe ich auch irgendwo einen Denkfehler. Ich hoffe ihr könnt mich unterstützen.
https://www.herber.de/bbs/user/157653.xlsm
Option Explicit
Dim Zeile, Spalte As Long
Dim tbl_1 As ListObject
Private Sub UserForm_Initialize()
Set tbl_1 = ThisWorkbook.Worksheets("Vorsorge").ListObjects(1)
ListBox1.Clear
For Zeile = 1 To tbl_1.DataBodyRange.Rows.Count
ListBox1.AddItem tbl_1.DataBodyRange(Zeile, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = tbl_1.DataBodyRange(Zeile, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = tbl_1.DataBodyRange(Zeile, 6)
Next Zeile
End Sub