Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ScrollArea

Forumthread: ScrollArea

ScrollArea
24.09.2003 07:49:00
Detlef
Hallo Profis,

mit dem Befehl:
Worksheets(1).ScrollArea = "a1:am33"
begrenze ich beim öffnen einer Arbeitsmappe
den Scrollbereich. Nun wird in dieser Mappe
die Tabelle 1 kopiert und erhält einen neuen
Tabellennamen. Es können auch mehrere Tabellen-
blätter sein. Wie kann ich den Scrollbereich
"a1:am33" trotzdem auf alle Tabellenblätter mit
begrenzen ?
Hat jemand eine Idee ?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: ScrollArea
24.09.2003 08:39:12
WernerB.
Hallo Detlef,

kopiere diese beiden Makros in das Modul von "DieseArbeitsmappe":

Option Explicit

Private Sub Workbook_Open()
ActiveSheet.ScrollArea = "A1:AM33"
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.ScrollArea = "A1:AM33"
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
AW: ScrollArea
24.09.2003 08:46:56
Detlef
Hallo Werner,
funktioniert !
Besten Dank.
Gruss Detlef
AW: ScrollArea
24.09.2003 08:48:25
BerndE
Moin Detlef,

ergänzend zu der Antwort von Werner kannst Du hiermit nur kopierte Blätter eingrenzen:


Private Sub Worksheet_Deactivate()
If Right(ActiveSheet.Name, 3) = "(2)" Then
MsgBox ("Kopie !!!")
Rem *** hier dann ScrollArea einrichten ***
End If
End Sub


Den Code musst Du in Deinem Beispiel in Tabelle1 (!!!) eintragen.

Gruß
Bernd

www.bernds.page.de.vu
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige