Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform - Listbox - mehr als zwei Spalten anzeige

Userform - Listbox - mehr als zwei Spalten anzeige
15.06.2017 20:51:57
STeve
Hallo Gönner und Könner.
Ich weiß ein leidiges Thema........aber ich möchte in einer Userform eine Listbox mit drei Spalten füllen.
Private Sub UserForm_Initialize() 'Column Count auf drei
With Me.ListBox1
Dim lngUntersterEintrag As Long
lngUntersterEintrag = Worksheets("Mitarbeiterverwaltung").Range("A65536").End(xlUp).Row
Me.ListBox1.List = Worksheets("Mitarbeiterverwaltung").Range("A1:C" & lngUntersterEintrag).Value ' wenn ich :B einfüge zeigt es die Spalten A und B an.
' so zeigt es Spalte A und C an
End With
Folgendes geht leider auch nicht: zeigt nur 1 und 3 an:
Private Sub UserForm_Initialize()
Dim i As Long
With Me.ListBox1
.ColumnCount = 3
For i = 1 To lngUntersterEintrag ' ist natürlich Int-Variable
.AddItem Cells(i, 1) 'SpalteA in erste Spalte
.List(.ListCount - 1, 1) = Cells(i, 2) 'SpalteB in zweite Spalte ' Cells richtig befüllt
.List(.ListCount - 1, 2) = Cells(i, 3) 'SpalteC in dritte Spalte ' cells richtig befüllt
Next
End With
Gibt es eine Lösung?
Allen einen schönen Abend und lg
STeve

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform - Listbox - mehr als zwei Spalten anzeige
15.06.2017 21:49:15
Gerd
Hallo Steve,
teste mal.
Private Sub UserForm_Initialize()
Tabelle1.Range("A1:C5").Formula = "=ADDRESS(ROW(),COLUMN())"
Tabelle1.Range("A1:C5").Formula = Tabelle1.Range("A1:C5").Value
With Me.ListBox1
.Clear
.ColumnCount = 3
.ColumnWidths = "22;22;22"
.List = Tabelle1.Range(Cells(1, 1), Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).Offset(0,  _
2)).Value
End With
End Sub
Gruß Gerd
Gerd L. -- DANKE.....
16.06.2017 10:20:34
STeve
Hallo Gerd L......KLASSE. Dankeschön. für deine Mühen und die schnelle und top Antwort.
Das(deine)ist die Lösung.
Nur musste ich statt :C5......:C1 verwenden uns schon zeigt er überall die Werte an.
Werde deinen Code in einigen Listboxen und auch Comboboxen verwenden.
mfg und LG
STeve
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige