Hallo,
ich habe hier ein Problem. Bevor ich die ListBox in den Frame gepackt habe lief der Code einwandfrei. Danach kommt der Fehler:
Spoiler anzeigen
ich habe hier ein Problem. Bevor ich die ListBox in den Frame gepackt habe lief der Code einwandfrei. Danach kommt der Fehler:
VB.NET-Quellcode
- Private Sub lb_table_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
- fn = Replace(Me.Name, "frm", "")
- Set c = Me.Controls("lb_table")
- Set wks = ThisWorkbook.Worksheets(fn)
- cntCol = wks.Cells(1, Columns.Count).End(xlToLeft).Column
- For i = 1 To cntCol
- Me.Controls("tb_0" & i) = c.List(c.ListIndex, i - 1)
- Next i
- End Sub