Listbox
15.05.2003 00:48:26
Peter Malze
ich habe listboxenstress,
ich möchte nur einer listbox mit 4 spalten aus 4 textboxen, immer wenn ich einen button klicke eine zeile nach der anderen anhängen, leider werden die einträge immer wieder leer angezeigt.
kann mir einer helfen ?
mein bisheriges makro:
Private Sub CommandButton5_Click()
Dim z
With ListBox2_AW
z = z + 1
ReDim MyArray(z, 4)
MyArray(z, 0) = Techniker
MyArray(z, 1) = AW_Anzahl
MyArray(z, 2) = TextBox33_AW.Value
MyArray(z, 3) = TextBox34_Summe_AW.Value
.ColumnCount = 4
.ColumnWidths = "5,1cm;1,4cm;1,3cm;1,5cm"
.List() = MyArray
End With
End Sub
gruß peter