Multipage Pages per F-Taste anwählen
03.03.2004 16:57:33
Peter Feustel
ich soll prüfen, ob man die (bei mir) vier Pages einer MultiPage per F-Taste anwählen kann.
Mit folgendem Code hatte ich keinen Erfolg, der Text der MsgBox wird gar nicht angezeigt - also kommt Excel dort überhaupt nicht hin!?
'
' 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
Code eingefügt mit Syntaxhighlighter 2.5
Wer weiß Hilfe?
Vielen Dank im voraus für jeden guten Hinweis.
Gruß, Peter