Re: Scrollen
16.02.2003 21:00:22
Nepumuk
Hallo Sabine,
folgenden Code in das Klassenmodul "Diese Arbeitsmappe"Option Explicit
Private Sub Workbook_Open()
Application.OnKey "{TAB}", "abwärts"
Application.OnKey "+{TAB}", "aufwärts"
End Sub
Private Sub Workbook_Activate()
Application.OnKey "{TAB}", "abwärts"
Application.OnKey "+{TAB}", "aufwärts"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "{TAB}"
Application.OnKey "+{TAB}"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{TAB}"
Application.OnKey "+{TAB}"
End Sub
Folgenden Code in ein "normales Modul"
Option Explicit
Dim sprung As Integer
Public Sub aufwärts()
Select Case sprung
Case 1
ActiveWindow.ScrollRow = 1
Case 2
ActiveWindow.ScrollRow = 15
Case 3
ActiveWindow.ScrollRow = 25
Case 4
ActiveWindow.ScrollRow = 35
End Select
sprung = sprung - 1 * (sprung > 0) * -1
End Sub
Public Sub abwärts()
Select Case sprung
Case 0
ActiveWindow.ScrollRow = 15
Case 1
ActiveWindow.ScrollRow = 25
Case 2
ActiveWindow.ScrollRow = 35
Case 3
ActiveWindow.ScrollRow = 45
End Select
sprung = sprung + 1 * (sprung < 4) * -1
End Sub
Die Sprungmarken musst du dir noch anpassen.
Gruß
Nepumuk