Gruppe
Dialog
Problem
Einer zweidimensionalen UserForm-ListBox sollen Textfeld-Inhalte hinzugefügt werden.
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