Registriert seit: 01.01.2016
Version(en): 2010
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
Registriert seit: 12.06.2020
Version(en): 2024, 365business
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.
Registriert seit: 11.12.2022
Version(en): 365 / 2021
Genau wie Ralf sagt und mit
Code:
Application.DisplayFullScreen
kannst du das "checken"
Gruß Dirk
---------------

- Wenn du nicht weißt, wo du hin willst, ist es egal, welchen Weg du einschlägst.
Registriert seit: 14.05.2017
Version(en): MS Office Prof. Plus 2016_32-Bit
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
Registriert seit: 01.01.2016
Version(en): 2010
11.08.2023, 21:25
(Dieser Beitrag wurde zuletzt bearbeitet: 11.08.2023, 21:33 von Phoeni.)
danke, aber irgendwie kann ich damit nix anfangen.
Phoeni
gibt es davon irgendeine Vorlage oder Testversion
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
Zitat:danke, aber irgendwie kann ich damit nix anfangen.
Eine gute Problembeschreibung vereinfacht die Hilfestellung nicht unwesentlich

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

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)