Das Archiv des Excel-Forums
ScrollArea
Betrifft: ScrollArea
von: Detlef
Geschrieben am: 24.09.2003 07:49:00
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 ?
Betrifft: AW: ScrollArea
von: WernerB.
Geschrieben am: 24.09.2003 08:39:12
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).
Betrifft: AW: ScrollArea
von: Detlef
Geschrieben am: 24.09.2003 08:46:56
Hallo Werner,
funktioniert !
Besten Dank.
Gruss Detlef
Betrifft: AW: ScrollArea
von: BerndE
Geschrieben am: 24.09.2003 08:48:25
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