TabellenBlatt Unterteilung

Forumthread: TabellenBlatt Unterteilung
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: TabellenBlatt Unterteilung

18.04.2008 13:57:26

Thomas

Habe Tabellenblatt unterteilt (Doppelbalcken über oberen Bildlaufpfeil etwas runtergezogen) und kann in 2 Hälften unabhängig voneinander scrollen.
Dieses kann ich nur mit jeweils einem Tabellenblatt machen. Bei vorheriger Gruppierung wird es nicht für andere Tabellenblätter übernommen.
Möchte aber die gleiche Unterteilung in 70 Tabellenblättern haben.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Benimmregeln

18.04.2008 14:00:00

Knigge
AW: TabellenBlatt Unterteilung

18.04.2008 14:04:00

David
AW: TabellenBlatt Unterteilung

18.04.2008 14:10:30

Thomas
AW: TabellenBlatt Unterteilung

18.04.2008 15:46:00

Renee

Benimmregeln

18.04.2008 14:00:00

Knigge

AW: TabellenBlatt Unterteilung

18.04.2008 14:04:00

David

Hi:
Zitat:Möchte aber die gleiche Unterteilung in 70 Tabellenblättern haben.

Das mag für dich schön sein, für alle anderen hier aber hochgradig uninteressant.
Ich schließe mich dem Beitrag von "Knigge" an.
Gruß
David

AW: TabellenBlatt Unterteilung

18.04.2008 14:10:30

Thomas

Hallo
Danke für die erste, sehr schnelle nicht Antwort aber information.
Nach meiner Weltpremiere in einem Internetforum nun ein zweiter Auftitt
bitte um Hilfe bei folgendem Problem
Habe Tabellenblatt unterteilt (Doppelbalcken über oberen Bildlaufpfeil etwas runtergezogen) und kann in 2 Hälften unabhängig voneinander scrollen.
Dieses kann ich nur mit jeweils einem Tabellenblatt machen. Bei vorheriger Gruppierung wird es nicht für andere Tabellenblätter übernommen.
Möchte aber die gleiche Unterteilung in 70 Tabellenblättern haben.

AW: TabellenBlatt Unterteilung

18.04.2008 15:46:00

Renee

Hi Thomas,
Dieses Makro in ein Modul und von dem Blatt aus laufen lassen, das gesplittet ist:


Sub AlleSplitten()
Dim lSplitRow As Long
Dim wS As Worksheet
Dim iW As Integer
iW = ActiveSheet.Index
lSplitRow = ActiveWindow.SplitRow
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.Activate
ActiveWindow.SplitRow = lSplitRow
Next
ThisWorkbook.Worksheets(iW).Activate
Application.ScreenUpdating = True
End Sub

GreetZ Renée