---

Hallo Zusammen!

in den letzten Wochen habe ich fleißig mitgelesen und konnte den einen oder anderen guten Tip aus dem Forum verwenden. Jetzt stehe ich vor einem kniffligen Problem. Ich hoffe, dass es hier jemand gibt, der mir dabei helfen kann...

ich habe auf einem Userform eine dreispaltige Listbox definiert

            userform.listbox1.Clear
                With userform.listbox1
                    .ColumnCount = 3
                    .ColumnWidths = "30;115;45"
                End With

dort habe ich durch ein Array die Einträge generiert

ReDim FIXTUREsb(Anzahl, 2) As Variant
For countLAENGE = 0 To (Anzahl)
FIXTUREsb(countLAENGE, 0) = FIXTURE_Kanal(countLAENGE)
FIXTUREsb(countLAENGE, 1) = FIXTURE_Teil(countLAENGE)
FIXTUREsb(countLAENGE, 2) = FIXTURE_Leistung(countLAENGE)
Next countLAENGE
userform.listbox1.List() = FIXTUREsb()

jetzt versuche ich verzweifelt, zu einem späteren Zeitpunkt eine
weitere Zeile zu dem Eintrag hinzuzufügen. Weder Additem noch List noch Column erfüllen die Aufgabe, und wenn dann nicht so, wie es soll.

Hier ein Beispiel eines VErsuchs (text in der mittleren Spalte einfügen)
            LISTcount = userform.listbox1.LISTcount
            userform.listbox1.Column(1,listcount) = "text"

dabei kommt immer die Fehlermeldung:
"Eigenschaft Column konnte nicht gesetzt werden.Index des Eigenschaftenfeldes ungültig"              ?????

Hat jemand eine Idee, wie ich zu einem bestehenden Eintrag einer mehrzeiligen Listbox einen weiteren Eintrag hinzufügen kann??

Besten Dank!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

listbox.jpg

Hallo,

meintest du es so ?

[code]
' Index ist 0 basiert => deshalb hat letzter Eintrag ComboBox1.ListCount - 1
Me.ComboBox1.AddItem "Eintrag 1"
Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = "SP2"
Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 2) = "SP3"

Me.ComboBox1.AddItem "Eintrag 2"
Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = "SP2"
Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 2) = "SP3"
[code]

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

sorry ... hatte ganz übersehen das es dein erster Beitrag war ...

Also nachträglich, herzlich willkommen im VBA Forum

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stelli,

danke für Deine Hilfe!!!!
In Deinem Beispiel hast du es mit einer ComboBox demonstriert.
Funktioniert aber genauso mit einer ListBox!!

Danke, Du hast mir wirklich geholfen.....

JeMue

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP