ich habe eine Listbox mit vielen Einträgen.
Dafür habe ich ein Mouseup Ereignis erstellt, das klappt auch gut ich rufe die Listbox auf und kann über die Tastatur den Anfangsbuchstaben (z.B: T) eingeben, dann springt die Makierung nacheinander zu den Einträgen mit (T).
Wenn ich die linke Maustaste gedrückt halte und gehe auf einen Eintrag und lasse die Taste los, wird der Eintrag in meine vorgegebene Zelle gesetzt, auch o.k.
Gibt es da vieleicht eine Kombi zwischen Mouseup und Entertaste ohne großen Aufwand.
z.B: Listbox wird geöffnet
(Tanz)
(Telefon)
(Tisch)
ich drücke T und die Makierung spring auf (Tanz)
ich drücke nochmal T und die Makierung springt auf Telefon, das will ich,
nun möchte ich gerne Enter drücken und der makierte Eintrag (Telefon) wird in meine Zelle geschrieben.
Thorsten
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
_
_
_
ByVal Y As Single)
Sheets("Main").Range("B2").Value = ListBox1.Value
Unload Me
End Sub