Hallo
Habe im Initialize-Ereignis bei meiner Userform folgenden Code:
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 ?