Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Scrollen

Scrollen
16.02.2003 12:56:08
Sabine
Hallo an alle,

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!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Scrollen
16.02.2003 18:05:37
Herbert

Hallo Sabine,
Dafür sind doch die "Bild"-Tasten forhanden,
die machen genau das was Du willst.
Gruß Herbert

Re: Scrollen
16.02.2003 19:30:58
Sabine

Hallo Herbert,

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

Anzeige
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

Anzeige
Re: Scrollen
16.02.2003 23:48:35
Herbert

Eine andere Möglichkeit wäre,die erste Zeile fixieren,
darin 5 Schaltflächen plazieren und jeder Schaltfläche ein
Makro zuweisen,wo Du zur jeweiligen Zeile springst.


Sub springen_Blatt1()
ActiveWindow.ScrollRow = 30
End Sub 
     
Gruß Herbert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige