Daten in Listbox einlesen - Laufzeitfehler 381
06.02.2008 09:48:54
André
ich habe schon mit Interesse einige Beiträge in diesem Forum gelesen, aber irgendwie stehe ich auf dem Schlauch und komme mit meinem Problem nicht weiter.
Ich möchte in eine Listbox mit Namen "Auftragspositionen" den Wert von "Kundenauftrag" einlesen und zwar an Position (i,0). Leider kommt immer die Meldung "Laufzeitfehler 381: Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftenfelds ungültig.
Hier der Quellcode:
Private Sub Übernahme_Label_Click()
Dim i%
With Auftragspositionen
.ColumnCount = 9
.ColumnWidths = "2,6 cm;1,6 cm;1,8 cm;2,6 cm;1,5 cm;1,6 cm;1,8 cm;1,8 cm;2,0 cm;"
End With
i = Auftragspositionen.ListCount + 1
Auftragspositionen.AddItem
Auftragspositionen.List(i, 0) = Kundenauftrag.Value
Auftragspositionen.List(i, 1) = Apos.Value
End Sub
Habt ihr irgendwelche Ideen, was ich falsch gemacht habe?
Vielen Dank schon einmal im Voraus!:)
André
Anzeige