Gruppe
Dialog
Bereich
ListBox
Thema
Einer zweidimensionalen UserForm-ListBox Elemente hinzufügen
Problem
Einer zweidimensionalen UserForm-ListBox sollen Textfeld-Inhalte hinzugefügt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.
ClassModule: frmAddElements
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim arr(0 To 0, 0 To 1) As String
arr(0, 0) = txtA.Value
arr(0, 1) = txtB.Value
lstValues.AddItem arr(0, 0)
lstValues.List(lstValues.ListCount - 1, 1) = arr(0, 1)
End Sub
StandardModule: Modul1
Sub CallForm()
frmAddElements.Show
End Sub