Computerhilfen.de Logo
Forum
Tipps
News

VBA: Laufzeitfehler 381 - Eigenschaft List konnte nicht gesetzt werden...

Hallo :)
Habe im Initialize-Ereignis bei meiner Userform folgenden Code:

Zitat
Private Sub UserForm_Initialize()
Dim Zeile As Long
Me.lstKunden.ColumnCount = 3
Zeile = 2

Do Until Worksheets("Kunden").Cells(Zeile, 2).Value = ""
Me.lstKunden.List(Me.lstKunden.ListCount - 1, 1) = Worksheets("Kunden").Cells(Zeile, 1).Value
Zeile = Zeile + 1
Loop

End Sub


Kann das Programm nicht ausführen, da immer der "Laufzeitfehler 381" erscheint! Die Beschreibung dazu lautet: "Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftenfelds ungültig"

Der Fehler muss wohl hier
Me.lstKunden.List(Me.lstKunden.ListCount - 1, 1) = Worksheets("Kunden").Cells(Zeile, 1).Value
liegen, erkenne da aber keinen Fehler. Wer kann mir helfen ?
« Installer bzw Skript erstellen.Projekt : 2013 für die Schule »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!