Herbers Excel-Forum - das Archiv
Listbox füllen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Listbox füllen
von: Herbert
Geschrieben am: 13.04.2005 22:24:25
Hallo Forum,
hatte vor ein paar Tagen schon einmal die Frage zum Füllen einer Listbox gestellt und von Klaus-Dieter diesen Code bekommen, der auch wunderbar funktioniert.
Private Sub UserForm_Initialize()
Dim arr As Variant
lstAnzeige.ColumnCount = 3
arr = Range("A1:C10")
lstAnzeige.List = arr
End Sub
Jetzt meine Frage - wie muss der Code aussehen, wenn z. B. in der ersten Spalte Werte aus D:D, in der zweiten aus E:E und in der dritten aus A:A angezeigt werden sollen.
Die Excel-Hilfe ist da wirklich keine Hilfe und in der Recherche habe ich nichts gefunden.
Danke schon mal.
Gruß Herbert
Kann ich den Name nach der Registrierung noch ändern? Würde mich dann nämlich gern als Herbert? kenntlich machen. Hier wimmelt es ja nur so von Herberts
Betrifft: AW: Listbox füllen
von: K.Rola
Geschrieben am: 13.04.2005 23:22:45
Hallo,
dann ist es nicht mehr so schön einfach:
Private Sub UserForm_Initialize()
Dim z As Long, s As Integer
Dim arr(1 To 3, 1 To 10)
For z = 1 To 10
For s = 1 To 2
arr(s, z) = Cells(z, s + 3)
Next
arr(3, z) = Cells(z, 1)
Next
ListBox1.Column = arr
End Sub
Gruß K.Rola
Betrifft: AW: Listbox füllen
von: Herbert
Geschrieben am: 14.04.2005 00:04:51
Hi K.Rola,
danke für deine Hilfe.
Habe deinen Code probiert - mir werden aber nur die Werte aus aus Spalte D links in der Listbox angezeigt - 2 und 3 sind leer.
Muss mich aber erst einmal in den Code eindenken. Vielleicht finde ich die Lösung dann selbst.
Wäre aber schön, wenn du noch was weißt.
Gruß Herbert
Betrifft: AW: Listbox füllen
von: K.Rola
Geschrieben am: 14.04.2005 00:09:49
Hallo,
wenn deine Vorgaben stimmen, muss das funktionieren.
Gruß K.Rola
Betrifft: AW: Listbox füllen
von: Herbert
Geschrieben am: 14.04.2005 00:28:56
Hi K.Rola,
das ist nur ein Beispiel - mir geht es hier nur um das Prinzip.
so sieht meine Tabelle aus
|
|
| A | B | C | D | E | 1 | Jan | Montag | 1 | 100 | 1000 | 2 | Feb | Dienstag | 2 | 101 | 1001 | 3 | Mrz | Mittwoch | 3 | 102 | 1002 | 4 | Apr | Donnerstag | 4 | 103 | 1003 | 5 | Mai | Freitag | 5 | 104 | 1004 | 6 | Jun | Samstag | 6 | 105 | 1005 | 7 | Jul | Sonntag | 7 | 106 | 1006 | 8 | Aug | Montag | 8 | 107 | 1007 | 9 | Sep | Dienstag | 9 | 108 | 1008 | 10 | Okt | Mittwoch | 10 | 109 | 1009 | |
|
Mit deinem Code (leicht geändert)
Private Sub UserForm_Initialize()
Dim z As Long, s As Integer
Dim arr(1 To 3, 1 To 10)
For z = 1 To 10
For s = 1 To 2
arr(s, z) = Cells(z, s + 3)
Next
arr(3, z) = Cells(z, 1)
Next
lstAnzeige.Column = arr
End Sub
zeigt mir die Listbox wirklich nur Werte aus Spalte D
Reaktiviere ich diesen Code
Private Sub UserForm_Initialize()
Dim arr As Variant
lstAnzeige.ColumnCount = 3
arr = Range("A1:C10")
lstAnzeige.List = arr
End Sub
werden A, B, C angezeigt.
Was stimmt da nicht?
Gruß Herbert
Jetzt kann ich auch verstehen, dass man dazu nichts findet.
Betrifft: AW: Listbox füllen
von: K.Rola
Geschrieben am: 14.04.2005 00:31:52
Hallo,
lad mal ein schlankes Beispiel hoch.
Gruß K.Rola
Betrifft: AW: Listbox füllen
von: Herbert
Geschrieben am: 14.04.2005 00:39:11
Hi K.Rola,
danke für deine Mühen. Hier ist meine Test-Datei
https://www.herber.de/bbs/user/21124.xls
Gruß Herbert
Betrifft: AW: Listbox füllen
von: K.Rola
Geschrieben am: 14.04.2005 00:44:08
Hallo,
füg entweder diese Zeile ein: lstAnzeige.ColumnCount = 3
oder leg in den Eigenschaften ColumnCount auf 3 fest.
Gruß K.Rola
Betrifft: AW: Listbox füllen
von: Herbert
Geschrieben am: 14.04.2005 00:54:06
Hi K.Rola,
so klappt es. 1000 Dank.
Es ist immer wieder schön, wenn man soooooo kompetente Hilfe bekommt.
Muss aber den Code erst noch verdauen und verstehen - das gelingt mir aber ;-)
Gruß Herbert
Betrifft: AW: Listbox füllen
von: K.Rola
Geschrieben am: 14.04.2005 00:40:20
Hallo,
füg entweder diese Zeile ein: lstAnzeige.ColumnCount = 3
oder leg in den Eigenschaften ColumnCount auf 3 fest.
Gruß K.Rola