Multipage Pages per F-Taste anwählen

'
'   die F-Tasten zur Markierung der MultiForm-Pages verwenden
'
Sub F_TastenAktivieren()
   On Error Resume Next
   Application.OnKey "{F1}", "Frage_01_17"
   Application.OnKey "{F2}", "Frage_18_34"
   Application.OnKey "{F3}", "Frage_35_50"
   Application.OnKey "{F4}", "Frage_51_66"
End Sub
Sub Frage_01_17()
MsgBox "Frage_01_17"
   UserForm1.MultiPage1.Value = 0                ' Fokus auf "Frage 1 - 17" setzen
   UserForm1.TextBox1.SetFocus                   ' Fokus auf TextBox1 setzen
   UserForm1.TextBox1.SelStart = 0               ' links im Feld aufsetzen
   
End Sub
Sub Frage_18_34()
MsgBox "Frage_18_34"
   UserForm1.MultiPage1.Value = 1                ' Fokus auf "Frage 18 - 34" setzen
   UserForm1.TextBox18.SetFocus                  ' Fokus auf TextBox18 setzen
   UserForm1.TextBox18.SelStart = 0              ' links im Feld aufsetzen
   
End Sub