VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einer zweidimensionalen UserForm-ListBox Elemente hinzufügen

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

    


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