Thomas Risi Softwareentwicklung

Worksheet aus UserForm scrollen

Aus einer Frage in einem Forum ...

Aus einer UserForm heraus, soll das darunter liegende Tabellenblatt gescrollt werden. Hierzu wird im KeyDown-Event der UserForm, oder auch in einem (mehreren) Steuerelement(en), der Tastencode abgefangen, und in Abhängigkeit hiervon ein Makro gestartet. Im Makro wird dann das Scrollen durchgeführt.

Option Explicit Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) On Error Resume Next Select Case KeyCode Case 33: Call m1 Case 38: Call m1 Case 34: Call m2 Case 40: Call m2 End Select End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) On Error Resume Next Select Case KeyCode Case 33: Call m1 Case 38: Call m1 Case 34: Call m2 Case 40: Call m2 End Select End Sub Sub m1() ActiveWindow.SmallScroll Up:=1 End Sub Sub m2() ActiveWindow.SmallScroll Down:=1 End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)