Clever-Excel-Forum

Hallo Leute,
ich nutze den untenstehenden VBA Code zum Scrollen wenn man z.B. in Zelle 500 ist,
nun habe ich bemerkt , das wenn ich die Tabelle im Vollbildmodus nutze, er 5 Zellen zu wenig scrollt.
Ändere ich die Einstellungen, wird im Normalansicht falsch gescrollt jedoch im Vollbildmodus richtig.
Könnt Ihr mir helfen?
Danke Gruß Phoeni

Sub Scrollen()
'
' Makro2 Makro
' Scrollen
'

'
ActiveWindow.SmallScroll Down:=27
Range("A27").Select
End Sub

du hast doch die Lösung schon selbst formuliert.
unterscheide im Code ob gerade Vollbild angezeigt wird oder nicht.
if... then... else
das bekommst du doch sicher schon hin.

Genau wie Ralf sagt und mit

Code:
Application.DisplayFullScreen

kannst du das "checken"

Hallo Phoeni,

zum Testen.

Code:
Sub Vollbild_Modus_umschalten()

    ' Umschaltung der Vollbildansicht zum Testen

    Application.DisplayFullScreen = Not (Application.DisplayFullScreen)

    ' Anzeigen der aktuellen Ansicht

    If Application.DisplayFullScreen = True Then

        MsgBox "Vollbildmodus"  ' Hier statt der MsgBox, deinen Scrollbefehl

    Else

        MsgBox "Normalansicht"  ' Hier statt der MsgBox, deinen Scrollbefehl

    End If

End Sub

danke, aber irgendwie kann ich damit nix anfangen.
Phoeni

gibt es davon irgendeine Vorlage oder Testversion

Hallöchen,

Zitat:danke, aber irgendwie kann ich damit nix anfangen.

Eine gute Problembeschreibung vereinfacht die Hilfestellung nicht unwesentlich Smile

Zitat:gibt es davon irgendeine Vorlage oder Testversion

Wenn Du den Code in ein Modul einfügst und unter verschiedenen Bedingungen testest, würde ich meinen, ist es eine Testversion Smile

und noch ein Hinweis.
Ich könnte mir vorstellen, dass unterschiedliche Auflösungen und / oder Zoomeinstellungen auch einen Einfluss haben könnten.
Ich würde meinen Scrollbereich ggf. an den sichtbaren Zeilen festmachen - sofern das in der Aufgabe passt. Im Prinzip:

ActiveWindow.SmallScroll Down:=Windows(1).VisibleRange.Rows.Count

Phoeni

ralf_b

DIZA

hddiesel

Phoeni

schauan