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

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 ?

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

Betreff
Datum
Benutzer
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).
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

Meistgelesene Forumthreads (12 Monate)

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