ich hebe ein Blatt mit 5 einzelnen Tabellen untereinander und möchte gern mit der Tab-Taste zur darunterligenden springen und mit Umschalt+Tab wieder zurück. Geht das? wie kann ich das realisieren?
Danke!
ich hebe ein Blatt mit 5 einzelnen Tabellen untereinander und möchte gern mit der Tab-Taste zur darunterligenden springen und mit Umschalt+Tab wieder zurück. Geht das? wie kann ich das realisieren?
Danke!
meine 5 Tabellen sind unterschiedlicher Länge, es sollten aber bei jedem Tab genau die Überschriften der Tabelle ganz obenstehen. Die Bild-Tasten springen zur nächsten Bildschirmansicht, die sich aber nicht genau mit der Größe meiner Tabelle decken, Kann ich da möglicherweise was markieren, um die bild-Tasten zu nutzen? Habe jetzt ein Makro dafür, welches auch funktioniert, mir aber nicht besonders elegant erscheint.
viele Grüße
Sabine
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
Sub springen_Blatt1()
ActiveWindow.ScrollRow = 30
End Sub
Gruß Herbert