Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einer zweidimensionalen UserForm-ListBox Elemente hinzufügen

Gruppe

ListBox

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