Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Scrollbereich festlegen

Scrollbereich festlegen
15.03.2006 14:48:53
Jakob
Hallo,
ich möchte beim Aufruf der Datei der Scrollbereich auf z.B. A1:L50 festgelegt wird. Wie kann ich das realisieren? Ich habe es mit folgenden Code versucht:
ActiveSheet.ScrollArea = Range("A1:L50")
Wenn ich den Bereich markiere und mit folgenden Code versuche, dann klappt es:
ActiveSheet.ScrollArea = Selection.Address
Besten Dank für Eure Hilfe.
Gruß
J.Freitag

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ScrollArea
15.03.2006 14:54:28
Beate
Hallo,
Das Makro gehört ins Codefinster "dieseArbeitsmappe" und steht ab nächstem Dateistart zur Verfügung. Tabellenname im Code anpassen:

Private Sub Workbook_Open()
Sheets("Tabelle1").ScrollArea = "A1:L50"
End Sub

Gruß,
Beate
AW: ScrollArea
15.03.2006 15:03:19
Jakob
Hallo Beate, Andreas, Hansi,
hat super geklappt.
Vielen Dank für Eure Hilfe.
Gruß
J.Freitag
AW: Scrollbereich festlegen
15.03.2006 14:54:45
Andreas
Hi Jakob,
einfach den Bereich nennen, also bspw.
ActiveSheet.ScrollArea = "A1:S100"
Dann sollte es gehen.
Grüßé
Andreas
AW: Scrollbereich festlegen
15.03.2006 14:55:49
Hansi
Hi

Private Sub Workbook_Open()
Sheets("Tabelle1").ScrollArea = "$A$1:$l$30"
End Sub

Gruss Hansi
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2