Listbox
28.06.2005 13:43:51
Marion
variabel 5 bis 50 Namen eingelesen werden.
Diese sollen in der Listbox auch sofort alle markiert werden.
Sonst müsste ich jeden einzelnen anwählen.
Gibt es eine Möglichkeit schlagartig alle auszuwählen?
Über die Tastatur funktioniert es leider nur umständlich (mit Leertaste).
Viele Grüße
Marion
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 50
lstValues.AddItem Range("B13").Offset(iCounter, 0) 'Namen einlesen
lstValues.Select (iCounter)
Next iCounter
End Sub
Anzeige