listbox - gleiches item in verschiedene Zellen
15.01.2005 11:20:05
Herbert
Vorgang:
Anwender wählt eine Zelle(A1) aus - Durch Mausclick wird ein ListboxItem(1) gewählt und in die aktuelle Zelle(A1) eingetragen und die Zelle darunter (A2) angewählt.
Problem:
Es lässt sich das gleiche Item(1) nicht in diese nächste Zelle(A2) eintragen, es bleibt das Listeboxitem(1) blau angewählt.
Ziel: das gleiche Listboxitem(1) soll auch mit Mausclick in Zelle darunter(A2)mit Click eingetragen werden können und ausgewähltes Item soll Fokus verlieren.
Code:
Private Sub ListBox1_Click()
ActiveCell.Select
ActiveCell = ListBox1.Text
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Momentane Lösung:
*) Eigener Commandbutton mit Code: Kopie von Inhalt aus Zelle oberhalb (Nachteil: 1 Click mehr)
*) Listboxeigenschaft MatchEntry auf 1: eine Taste drücken und erstes Item der Liste wird ausgewählt (Nachteil: funkt nicht wenn 1 Item gewählt wurde).
Mit Dank
herbert