in meiner Userform gibt es Suchfeld und ein Commandbutton, mit dem die Suche ausgeführt wird.
(funktioniert prima).
Ich möchte nun die Suche mit der PGDN Taste weiterführen und habe
folgenden Code in "Diese Arbeitsmappe" geschrieben:
Option Explicit
Private Sub Workbook_aCtivate()
Userformanzeige
Application.OnKey "{PGDN}", "Datensatzsuchen"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{PGDN}"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{PGDN}"
End Sub
Private Sub Workbook_Open()
Application.OnKey "{PGDN}", "Datensatzsuchen"
End Sub
Funktioniert aber nicht!
Wie mach ichs richtig?
Vielen Dank für eine Antwort.
Mit freundlichen Grüßen
Albrecht Grohn