Das blöde Array-Dingsbums bringt mich noch zum Verzweifeln...
In einem Userform habe ich eine 3-spaltige Listbox. Mittels einem Commandbutton möchte ich einen neuen Eintrag zu den bestehenden Listbox-Einträgen hinzufügen.
Soweit bin ich schon...
Option Explicit
Public ArrayLange As Integer
Public MyArray() As Variant
Private Sub Hinzufugen_Click()
Dim i As Integer
ArrayLange = ArrayLange + 1
ReDim MyArray(1 To ArrayLange, 0 To 2)
ExposureListe.ColumnCount = 3
MyArray(ArrayLange, 0) = "A"
MyArray(ArrayLange, 1) = "B"
MyArray(ArrayLange, 2) = "C"
ExposureListe.List = MyArray
End Sub
Der Code fügt zwar einen neuen Eintrag hinzu, aber die bestehenden Listbox-Einträge verschwinden. Ist mir auch klar, nur wie bekomme ich die bestehenden Listbox-Einträge ins Array zurück oder gibt es vielleicht auch einen direkten Weg im Stil AddItem?
In der Folge kommt dann noch die Frage, wie ich einen einzelnen ausgewählten Listbox-Eintrag auf Knopfdruck wieder löschen kann.
Herzlichen Dank im Voraus.
Gruss
Chris