Office: ListBox befüllen

paddy3911 · 2. Juli 2017

Guten Tag,

ich bräuchte einmal Hilfe beim befüllen meiner ListBox....

Ich möchte sie füllen aber mit unterschiedlichen Spalten...

So sieht es aus:
Code:

Private Sub UserForm_Activate() 'Userform aktivieren
Dim arr As Variant
Dim arr1 As Variant

With Sheets("Datenbank")
arr = Intersect(.Range("A:A"), .Range("E1").CurrentRegion)

End With
With ListBox2

.ColumnCount = 1

ListBox2.List = arr

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dort wird sie mit der Spalte A befüllt. Wenn ich jetzt aber 2 Spalten haben möchte, Spalte A und Spalte D sollen in die ListBox übernommen werden, wie muss ich den Code ändern ?

Danke bereits jetzt *Smilie

:)

Hajo_Zi · 4. Juli 2017

mit einer Schleife.
Code:

For iCounter = 1 To .FoundFiles.Count
ListBox1.AddItem .FoundFiles(iCounter)
ListBox1.List(iCounter - 1, 1) = Format(FileDateTime(.FoundFiles(iCounter)), "dd.MM.yy hh:mm")
Next iCounter
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

paddy3911 · 4. Juli 2017

Ist es nicht irgendwie so möglich ?

Code:

Private Sub UserForm_Activate() 'Userform aktivieren
Dim arr As Variant
Dim arr1 As Variant

With Sheets("Datenbank")
arr = Intersect(.Range("A:A" & "D:D"), .Range("E1").CurrentRegion)

End With
With ListBox2

.ColumnCount = 2

ListBox2.List = arr

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit der Schleife kann ich leider nichts anfangen...

paddy3911 · 4. Juli 2017

Angenommen die Spalten a,b,c,d sind vorhanden und der Inhalt hat folgendes:

A=Vorname
B=Nachname
C=Jahr
D=ID

dann möchte ich nun in meiner list Box die Spalten A=Vorname und daneben D=ID haben.

Ist das nicht irgendwie möglich ?

Klaus-Dieter · 4. Juli 2017

Hallo,

du kannst den ganzen Block einlesen und die Spaltenbreite von B und C auf Null setzen.

paddy3911 · 4. Juli 2017

Wie würde der Code dann aussehen ?

Klaus-Dieter · 4. Juli 2017

Hallo,

versuche es mal so: arr = Intersect(.Range("A:d"), .Range("A1").CurrentRegion)

HS(V) · 4. Juli 2017

Wie beschrieben in den ersten Beitrag von Klaus-Dieter

Code:

Private Sub UserForm_Initialize()
With ListBox2
.List = Sheets("Datenbank").Cells(1).CurrentRegion.Value
.ColumnWidths = "40;0;0;40" 'oder in der Eigenschaft
.ColumnCount = 4 'oder in der Eigenschaft
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

paddy3911 · 25. Juli 2017

Wunderbar *Smilie Danke Euch, funktioniert wunderbar.

Office: ListBox befüllen

ListBox befüllen

ListBox befüllen

ListBox befüllen

ListBox befüllen

ListBox befüllen - Similar Threads - ListBox befüllen

Listbox befüllen

Listbox befüllen

ListBox mit AddItem aus mehrspaltiger Tabelle befüllen

VBA Listbox in abhängigkeit befüllen

Listbox befüllen

Listbox mit Array befüllen,bearbeiten &zurückschreiben

Listbox befüllen