Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
520to524
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Scrollen des Fensters in Ausgangslag

Automatisches Scrollen des Fensters in Ausgangslag
24.11.2004 15:28:58
Holger
Hallo,
gibt es eine Möglichkeit in VBA, das sichtbare Fenster der Excelmappe automatisch auf "Knopfdruck" ganz nach links oben zu verschieben?
Ich befinde mich z. B. in der Zelle DZ 43, und möchte per Knopfdruck das Fenster verschieben, so dass das Lineal wieder bei A1 beginnt.
Gruss an alle,
Holger

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Scrollen des Fensters in Ausgangslag
WernerB.
Hallo Holger,
meinst Du das:
Application.Goto Reference:=Worksheets("Tabelle1").Range("A1"), Scroll:=True
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Automatisches Scrollen des Fensters in Ausgangslag
24.11.2004 15:40:20
Holger
Hi Werner,
gibt es jetzt noch die Möglichkeit, alle Register in der Datei darüber zu automatisieren? Ich würde ungern alle 23 Register einzeln aufführen.
Ansonsten Perfekt. Vielen Dank
Holger
AW: Automatisches Scrollen des Fensters in Ausgangslag
WernerB.
Hallo Holger,
wie gefällt Dir das?

Sub Holger()
Dim i As Integer
Application.ScreenUpdating = False
For i = Worksheets.Count To 1 Step -1
Application.Goto Reference:=Worksheets(i).Range("A1"), Scroll:=True
Next i
Application.ScreenUpdating = True
End Sub

Gruß
WernerB.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige