Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Scrollarea Active Workbook

Scrollarea Active Workbook
08.12.2017 11:20:02
Micha
Guten Morgen,
gibt es die Möglichkeit, eine Scrollarea für alle Tabellenblätter festzulegen, ohne jedes einzelne Blatt ansprechen zu müssen?
Ich habe es mit ActiveWorkbook.Sheets.Scrollarea=.... probiert, aber das scheint nicht zu funktionieren.
Das Areal ist bei allen Tabellenblättern gleich von A1 bis V110.
Über eure Hilfe würde ich mich freuen. :)
Grüße
Micha

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Scrollarea Active Workbook
08.12.2017 11:23:38
Nepumuk
Hallo Micha,
nein, das geht nicht.
Gruß
Nepumuk
AW: Scrollarea Active Workbook
08.12.2017 11:27:11
Micha
Das ist schade.
Danke für deine schnelle Hilfe ;)
AW: Scrollarea Active Workbook
08.12.2017 11:30:00
EtoPHG
Hallo Micha,
Diesen Code in DieseArbeitsmappe: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.ScrollArea = "A1:V110"
End Sub
Gruess Hansueli
AW: Scrollarea Active Workbook
08.12.2017 11:32:08
Micha
Hallo Hansueli,
das funktioniert! Danke :)
Grüße
Micha
AW: Scrollarea Active Workbook
08.12.2017 11:32:30
Nepumuk
Hallo Hansueli,
und was ist mit der Tabelle die beim öffnen der Mappe aktiv ist?
Ich würde das so machen:
Option Explicit

Private Sub Workbook_Open()
    Dim objWorksheet As Worksheet
    For Each objWorksheet In Worksheets
        objWorksheet.ScrollArea = "$A$1:$D$4"
    Next
End Sub

Gruß
Nepumuk
Anzeige
Max: Wo du recht hast, hast du recht (owT)
08.12.2017 13:49:12
EtoPHG

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige