VBA-Programmierung in Microsoft Excel

Einer zweidimensionalen UserForm-ListBox Elemente hinzufügen

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

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox