Thema: Hinzufügen von TextBox-Werten

Home

Der zweispaltigen ListBox werden TextBox-Inhalte hinzugefügt.

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Hinzufügen von TextBox-Werten
Ablaufbeschreibung:
- Variablendeklaration
- Wert der ersten TextBox in Array einlesen
- Wert der zweiten TextBox in Array einlesen
- Array der ListBox zuweisen
- Ersten Datensatz in der ListBox auswählen

Code:


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