Scrollen bei Vollbild

[Phoeni]

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

[ralf_b]

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.

[DIZA]

Genau wie Ralf sagt und mit 

Code:

Application.DisplayFullScreen

kannst du das "checken"

[hddiesel]

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

[Phoeni]

danke, aber irgendwie kann ich damit nix anfangen.
Phoeni

---

gibt es davon irgendeine Vorlage oder Testversion

[schauan]

Hallöchen,

danke, aber irgendwie kann ich damit nix anfangen.

Eine gute Problembeschreibung vereinfacht die Hilfestellung nicht unwesentlich

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

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