ScrollArea

Informationen und Beispiele zu den hier genannten Dialog-Elementen:

ScrollArea von Detlef vom 24.09.2003 07:49:00
- AW: ScrollArea - von WernerB. am 24.09.2003 08:39:12
  - AW: ScrollArea - von Detlef am 24.09.2003 08:46:56
- AW: ScrollArea - von BerndE am 24.09.2003 08:48:25

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