Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ScrollArea

ScrollArea
16.02.2009 18:56:00
Werner
Hallo zusammen,
ich möcte ScrollArea setzen was mit 1 Tabelle gut funktioniert. Wie muß ich das mit mehreren Bereichen Schreiben? Hier ein Versuch der aber nicht klapt!
Wer kann helfen?

Private Sub Workbook_Open()
Worksheets("Tabelle1:Tabelle75").ScrollArea = "A1:O46"
Worksheets("Tabelle76").ScrollArea = "A5:O6"
End Sub


Viele Grüße
Werner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ScrollArea
16.02.2009 19:09:00
Hajo_Zi
Hallo werner,
Du kannst nur einen Definieren.
scrollAreas definieren, wenn du Lust hast:

Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "$A$1:$C$10"
End Sub


‚hier wird zwischen zweien gewechselt
‚du kannst aber noch mehrere definieren


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$C$10" Then
ActiveSheet.ScrollArea = "$D$11:$E$20"
ElseIf Target.Address = "$E$20" Then
ActiveSheet.ScrollArea = "$A$1:$C$10"
End If
End Sub


von ManuelaM

Anzeige
AW: ScrollArea
16.02.2009 21:28:00
Werner
Hallo Manuela,
Danke für den Tip :-)
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige