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
In diesem Fall müssen immer vier Einträge ausgewählt werden. Zusätzlich möchte ich diese Liste im Nachhinein nun mit drei zusätzlichen Einträgen, alle mit der gleichen Bezeichnung "Kein Eintrag" erweitern. Das wollte ich mit der .AddItem-Funktion machen, aber mache da irgendwas falsch. Da ich die bisherige Lösung auch aus einem Forum habe, bin ich ein wenig überfragt... Ich hoffe, dass mir jemand weiterhelfen kann!Danke schon mal :)