Я добавляю информацию из текстового поля (tbxBladnr) во второй столбец списка с множественным выбором (lbxSektioner), который размещается в той же пользовательской форме. Я не могу заставить это работать. Одна вещь
If Not lbxSektioner.List(iCount, 1) = "" Then
Я не могу заставить часть lbxSektioner.List функционировать, потому что я не могу получить доступ к аргументу List. Вот полный код.
Option Explicit
Private Sub lbxSektioner_Click()
End Sub
'Starta formuläret
Private Sub UserForm_Initialize()
Call FillListbox
End Sub
'Fyll listboxen från rätt i filen
Sub FillListbox()
Dim arrSektion As Variant
arrSektion = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
lbxSektioner.List = arrSektion
End Sub
Private Sub cmbLaggtill_Click()
Dim iCount As Integer
Dim strString As String
For iCount = 0 To lbxSektioner.ListCount - 1
If (lbxSektioner.Selected(iCount) = True) Then
If Not lbxSektioner.List(iCount, 1) = "" Then
strString = lbxSektioner.List(iCount, 1) & ", " & tbxBladnr.Value
Else
strString = tbxBladnr.Value
End If
lbxSektioner.List(iCount, 1) = lbxSektioner.List(iCount, 1) & ", " & strString
End If
Next iCount
End Sub