Einträge in ListBox hinzufügen
16.06.2022 23:17:22
Christine
ich habe für eine ListBox innerhalb einer UserForm folgenden Code für den Eintrag von bisherigen Werten:
Private Sub CommandButton2_Click()
Dim Liste(1 To 4) As Variant
Dim jZaehler As Integer
Dim j As Integer
With ListBox2
For j = 0 To .ListCount - 1
If .Selected(j) Then
jZaehler = jZaehler + 1
If jZaehler > 4 Then Exit For
Liste(jZaehler) = .List(j)
End If
Next j
End With
End Sub
Danke schon mal :)
Anzeige