Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Listbox in UF zeigt nur eine Spalte an
05.02.2023 13:51:56
Rommi
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox in UF zeigt nur eine Spalte an
05.02.2023 14:18:51
Beverly
Hi Ronni,
und wo ist das UserForm in deiner hochgeladenen Mappe? Ich kann also nur raten: du hast vergessen, unter der Eigenschaft der ListBox bei ColumnCount anstelle 1 eine 3 einzutragen.
Bis später
Karin

AW: Listbox in UF zeigt nur eine Spalte an
05.02.2023 14:31:04
JoWE
Hallo,
sofern Du die
-Anzahl der Spalten und/oder (ColumnCount)
-die Spaltenbreite (ColumnWidths)
in der Listbox Deiner UF nicht angegeben hast:
Private Sub UserForm_Initialize()
  Dim Zeile As Long
  Set tbl_1 = ThisWorkbook.Worksheets("Vorsorge").ListObjects(1)
  With ListBox1
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "15;45;60"
    For Zeile = 1 To tbl_1.DataBodyRange.Rows.Count
      .AddItem tbl_1.DataBodyRange(Zeile, 1).Value
      .List(.ListCount - 1, 1) = tbl_1.DataBodyRange(Zeile, 2)
      .List(.ListCount - 1, 2) = tbl_1.DataBodyRange(Zeile, 6)
    Next Zeile
  End With
End Sub
Gruß
Jochen
Anzeige
AW: falscher Zweig, sorry
05.02.2023 14:31:44
JoWE
AW: Listbox in UF zeigt nur eine Spalte an
05.02.2023 14:32:25
JoWE
Hallo,
sofern Du die
-Anzahl der Spalten und/oder (ColumnCount)
-die Spaltenbreite (ColumnWidths)
in der Listbox Deiner UF nicht angegeben hast:
 Private Sub UserForm_Initialize()
   Dim Zeile As Long
   Set tbl_1 = ThisWorkbook.Worksheets("Vorsorge").ListObjects(1)
   With ListBox1
     .Clear
     .ColumnCount = 3
     .ColumnWidths = "15;45;60"
     For Zeile = 1 To tbl_1.DataBodyRange.Rows.Count
       .AddItem tbl_1.DataBodyRange(Zeile, 1).Value
       .List(.ListCount - 1, 1) = tbl_1.DataBodyRange(Zeile, 2)
       .List(.ListCount - 1, 2) = tbl_1.DataBodyRange(Zeile, 6)
     Next Zeile
   End With
 End Sub
Gruß
Jochen
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige