Fensterfixierung für alle Blätter per Makro

09/10/2009 - 08:38 von ChristianJohn81 | Report spam
Hallo Community,

ich würde gern für alle Blàtter einer Mappe die gleiche
Fensterfixierung festlegen.

Folgendes Makro:

Sub fixieren()
Dim Blatt As Object
Dim intI As Integer
For intI = 1 To ActiveWorkbook.Sheets.Count
Sheets(intI).Activate
Rows("3:3").Select
FreezePanes = True
Next intI
End Sub


Leider funzt es nicht...
Was mache ich falsch?

Danke!
Christian John
 

Lesen sie die antworten

#1 Claus Busch
09/10/2009 - 09:01 | Warnen spam
Hallo Christian,

Am Thu, 8 Oct 2009 23:38:28 -0700 (PDT) schrieb
:

Sub fixieren()
Dim Blatt As Object
Dim intI As Integer
For intI = 1 To ActiveWorkbook.Sheets.Count
Sheets(intI).Activate
Rows("3:3").Select
FreezePanes = True
Next intI
End Sub



du musst nur die eine Zeile àndern nach:
ActiveWindow.FreezePanes = True
Außerdem würde Range("A3").Select reichen.


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen