Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
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).
AW: ScrollArea
24.09.2003 08:46:56
Detlef
Hallo Werner,
funktioniert !
Besten Dank.
Gruss Detlef
Anzeige
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

68 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige