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: H) eingeben, dann springt die Makierung nacheinander zu den Einträgen mit (H).
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.
Ich möchte aber den Eintrag über Tastatur (z.B: H) auswählen, dann mit der Entertaste bestätigen und in meine Zelle setzen.
Gibt es da vieleicht eine Kombi zwischen Mouseup und Entertaste ohne großen Aufwand.
Vielen Dank im vorraus.
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