Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi