Listindex. ... zurücksetzen
09.01.2008 19:36:00
Sonnenpeter
das Archiv gibt da leider nur eine Meldung bei "listenindex zurücksetzen" entweder ist es supereinfach und ich schnall es mal wieder nicht und/oder es geht nicht?
Bisher behelfe ich mit der Lösung "LB.ListIndex = 1" um die Möglichkeit zu haben wieder auf den gleichen Listenindex klicken zu können. Wenn ich das nicht tue kann ich auf den ausgewählten Index klicken wie ich will es erfolgt keine Ausgabe.
Set LB = ActiveSheet.ListBoxes("Listenfeld1")
PRO = LB.List(LB.ListIndex)
If LB.ListIndex = 1 Or LB.ListIndex = LB.ListCount Then
Exit Sub
Else
Me.Range(Zelle).Value = PRO
End If
Me.Range(Zelle).Select
LB.ListIndex = 1
ActiveCell.Offset(1, 0).Select
Ist es Möglich den Listenindex so zurück zu setzen, dass ich auch ein zweites mal draufklicken kann und dann auch wieder das angegebene Ereignis die Ausgabe von "PRO" zu erreichen?
wobei es auch angenehm wäre wenn die blaue Hinterlegung bleiben würde. Die Orientierung in Listenfeld wäre damit wesentlich erleichtert.
Hoffe mich einigermaßen klar ausgedrückt zu haben.
Gruß Sonnenpeter