Fenster fixieren bei mehreren Tabellen gleichzeitig

[Gerald Zeibig]

Hallo zusammen,

ich möchte innerhalb einer Mappe bei mehreren Tabellen gleichzeitig die
Überschrift fixieren. Der Versuch alle Blätter zu markieren und Fenster
fixieren ist gescheitert.

Vielen Dank im Voraus.

[Thomas Ramel]

Grüezi Gerald

Gerald Zeibig schrieb am 10.03.2006

Post by Gerald Zeibig
ich möchte innerhalb einer Mappe bei mehreren Tabellen gleichzeitig die
Überschrift fixieren. Der Versuch alle Blätter zu markieren und Fenster
fixieren ist gescheitert.

Ja, das ist korrekt. Fenster fixieren klappt nur für das momentan aktive
Tabellenblatt, da die Fixierung eine Eigenschaft des Fensters und nicht des
Blattes an sich ist.
Du musst also die Fixierung für jedes Tabellenblatt einzeln vornehmen, oder
Du kannst per VBA-Code alle Fenster aktiv machen, die Fixierung setzen und
dann zurück zum Ausgangsblatt springen.

Der folgende Code fixiert alle Tabellenblätter einer Mappe an der aktiven
Zelle des Tabellenblattes, das beim Start aktiv ist. Die aktive Zelle
sollte nicht A1 sein, aber das ist auch beim hänsichen Setzen der Fixierung
so der Fall.

Sub Fenster_fixieren()
'Ohne .Select alle Fenster fixieren
Dim wS As Worksheet
Dim wsStart As Worksheet
Dim lngZ As Long
Dim lngS As Long

Set wsStart = ActiveSheet
lngZ = ActiveCell.Row - 1
lngS = ActiveCell.Column - 1
For Each wS In ActiveWorkbook.Worksheets
wS.Activate
With ActiveWindow
.SplitRow = lngZ
.SplitColumn = lngS
.FreezePanes = True
End With
Next wS
wsStart.Activate
End Sub



Mit freundlichen Grüssen
Thomas Ramel

[Gerald Zeibig]

Hallo Thomas,

vielen Dank für deine Antwort.
Sie hat mich um ein Vielfaches weitergebracht.
--
Gruß und ein schönes Wochenende
Gerald Zeibig

Post by Thomas Ramel
Grüezi Gerald
Gerald Zeibig schrieb am 10.03.2006

Post by Gerald Zeibig
ich möchte innerhalb einer Mappe bei mehreren Tabellen gleichzeitig die
Überschrift fixieren. Der Versuch alle Blätter zu markieren und Fenster
fixieren ist gescheitert.

Ja, das ist korrekt. Fenster fixieren klappt nur für das momentan aktive
Tabellenblatt, da die Fixierung eine Eigenschaft des Fensters und nicht des
Blattes an sich ist.
Du musst also die Fixierung für jedes Tabellenblatt einzeln vornehmen, oder
Du kannst per VBA-Code alle Fenster aktiv machen, die Fixierung setzen und
dann zurück zum Ausgangsblatt springen.
Der folgende Code fixiert alle Tabellenblätter einer Mappe an der aktiven
Zelle des Tabellenblattes, das beim Start aktiv ist. Die aktive Zelle
sollte nicht A1 sein, aber das ist auch beim hänsichen Setzen der Fixierung
so der Fall.
Sub Fenster_fixieren()
'Ohne .Select alle Fenster fixieren
Dim wS As Worksheet
Dim wsStart As Worksheet
Dim lngZ As Long
Dim lngS As Long
Set wsStart = ActiveSheet
lngZ = ActiveCell.Row - 1
lngS = ActiveCell.Column - 1
For Each wS In ActiveWorkbook.Worksheets
wS.Activate
With ActiveWindow
.SplitRow = lngZ
.SplitColumn = lngS
.FreezePanes = True
End With
Next wS
wsStart.Activate
End Sub
Mit freundlichen Grüssen
Thomas Ramel
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)