Tabellen scrollen erweitern

26.08.2025 07:19:33

NicoHendrik

Guten Morgen,

ich habe eine Tabelle wo ich den Scroll Bereich begrenze.

Mein Code hier befindet sich in meine Arbeitsmappe und funktioniert gut.

Wenn der User aber jetzt ein Sheet hinzufügt, wird dieser Scroll Bereich nicht
auf die neue Tabelle angewendet.

Es können bis zu 10 Tabellen hinzugefügt werden.

Es muss dann jedes Mal, wenn eine Tabelle hinzugefügt wird, manuell dieser Code um eine neue Zeile erweitert werden.
Wie kann ich diesen manuellen Eingriff verhindern?

Gruß Nico

Private Sub Workbook_Open()

ThisWorkbook.Sheets(3).ScrollArea = "$A$1:$OR$95"

ThisWorkbook.Sheets(4).ScrollArea = "$A$1:$OR$95"



End Sub

AW: Tabellen scrollen erweitern

26.08.2025 07:42:01

RPP63

Moin!
Es gibt da das Ereignismakro Workbook_NewSheet(ByVal Sh As Object) in DieseArbeitsmappe, welches man hierfür nutzen kann:

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Sh.ScrollArea = "$A$1:$OR$95"

End Sub

Ich weiß grad nicht, ob die ScrollArea flüchtig ist.
Falls ja, müsstest Du Dein _Open wie folgt erweitern:

Private Sub Workbook_Open()

Dim i As Long

For i = 3 To Worksheets.Count

  Worksheets(i).ScrollArea = "$A$1:$OR$95"

Next

End Sub

Gruß Ralf

AW: Tabellen scrollen erweitern

26.08.2025 08:16:21

daniel

Hi

Alternativ kannst du auch im Selection_Change-Event im Modul DieseArbeitsmappe folgendes tun

If Sh.Index >= 3 then

     If Sh.Scrollarea > "$A$1:$OR$95" then

         Sh.scrollarea = "$A$1:$OR$95"

    End if 

End if

Das prüft auf jedem Blatt bei jeder Cursorbewegung, ob die Scrollareal da ist, auch bei neuen Blättern und nach den Öffnen.

Die ersten beiden Blätter sind ausgenommen.

Gruß Daniel

AW: Tabellen scrollen erweitern

26.08.2025 08:43:39

NicoHendrik

Vielen Dank an Beide.
es klappt Prima.

Gruß Nico.

Noch was: wie ihr wohl schon mitbekommen hab, das ich kein Windows Rechner habe, habe ich jetzt Ich habe mit Parallels Window 11 auf meinen Apple installiert.
jetzt klappt es mit Excel wesentlich besser.

Ergänzend

26.08.2025 07:51:53

RPP63

Zitat:
Es können bis zu 10 Tabellen hinzugefügt werden.
Heißt, der maximale Index liegt bei 14:

Private Sub Workbook_Open()

Dim i As Long

For i = 3 To Worksheets.Count

  If i  15 Then Worksheets(i).ScrollArea = "$A$1:$OR$95"

Next

End Sub

Man könnte im NewSheet auch die Anzahl begrenzen:

Private Sub Workbook_NewSheet(ByVal Sh As Object)

If Sh.Index  15 Then

Sh.ScrollArea = "$A$1:$OR$95"

Else

  MsgBox "Maximale Anzahl Blätter überschritten! Aktion ungültig!"

  Application.DisplayAlerts = False

  Sh.Delete

End If

End Sub

AW: Ergänzend

26.08.2025 08:42:50

NicoHendrik

Vielen Dank an Beide.
es klappt Prima.

Gruß Nico.

Noch was: wie ihr wohl schon mitbekommen hab, das ich kein Windows Rechner habe, habe ich jetzt Ich habe mit Parallels Window 11 auf meinen Apple installiert.
jetzt klappt es mit Excel wesentlich besser.

Tabellen scrollen erweitern

Forumthread: Tabellen scrollen erweitern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Tabellen scrollen erweitern

Forumthread: Tabellen scrollen erweitern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread