Scrollen bei Vollbild
#1
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
Antworten Top
#2
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.
Antworten Top
#3
Genau wie Ralf sagt und mit 
Code:
Application.DisplayFullScreen

kannst du das "checken"
Gruß Dirk
---------------
100  - Wenn du nicht weißt, wo du hin willst, ist es egal, welchen Weg du einschlägst.

Antworten Top
#4
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
Gruß Karl
Antworten Top
#5
danke, aber irgendwie kann ich damit nix anfangen.
Phoeni

gibt es davon irgendeine Vorlage oder Testversion
Antworten Top
#6
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste