Listbox leeren - Fehlermeldung 381

14/08/2009 - 15:42 von CK | Report spam
Hallo Zusammen,
ich möchte eine Listbox mit folgendem Code Leeren.
Private Sub CommandButton1_Click()
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "1cm;1cm"
ListBox1.AddItem
ListBox1.List(0, 0) = "1,1"
ListBox1.List(1, 0) = "2,1"
ListBox1.List(0, 1) = "1,2"
ListBox1.List(1, 1) = "2,2"
End Sub
Allerdings bekomme ich immer die folgende Fehlermeldung
Ungültiger Index für Eigenschaft. Fehlermeldung 381

Hat einer eine Idee? Danke
Gruss CK
 

Lesen sie die antworten

#1 Andreas Killer
14/08/2009 - 16:22 | Warnen spam
CK schrieb:

ich möchte eine Listbox mit folgendem Code Leeren.
Private Sub CommandButton1_Click()
ListBox1.Clear


Naja, geht doch. Wo ist das Problem. ;-))

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "1cm;1cm"
ListBox1.AddItem
ListBox1.List(0, 0) = "1,1"
ListBox1.List(1, 0) = "2,1"


...
Ungültiger Index für Eigenschaft. Fehlermeldung 381


Logisch, Du versuchst die 2te Zeile zu füllen, bevor Du sie angelegt
hast, d.h. da fehlt ein ListBox1.AddItem .-)

Andreas.

Ähnliche fragen