Wie wendet man das Einfrieren/Aufheben von Bereichen auf mehrere Arbeitsblätter gleichzeitig an?

Beim Arbeiten mit großen Excel-Arbeitsmappen, die Dutzende oder sogar Hunderte von Arbeitsblättern enthalten, müssen Sie häufig bestimmte Zeilen oder Spalten sichtbar halten, indem Sie Bereiche einfrieren. Die Standardfunktion „Bereich fixieren“ in Excel funktioniert jedoch nur auf dem aktiven Arbeitsblatt, was es zeitaufwendig macht, diese Aktion manuell auf jedem Blatt zu wiederholen. Wenn Sie dieselben Zeilen oder Spalten über alle Ihre Arbeitsblätter hinweg konsistent fixieren (oder später aufheben) möchten, gibt es dann eine Möglichkeit, diese Einstellung auf jedes Arbeitsblatt auf einmal anzuwenden – um Zeit zu sparen und das Risiko zu reduzieren, ein Blatt zu übersehen?

Bereich fixieren auf allen Arbeitsblättern gleichzeitig mit VBA-Code anwenden

Bereiche für alle Arbeitsblätter auf einmal mit VBA-Code aufheben

Bereich fixieren/aufheben für alle Arbeitsblätter mit einem Klick mit Kutools für Excel anwenden

Bereich fixieren auf allen Arbeitsblättern gleichzeitig mit VBA-Code anwenden

Wenn Sie Bereiche an derselben Zellenposition in jedem Arbeitsblatt Ihrer Arbeitsmappe fixieren möchten, bietet VBA eine effiziente Lösung, um diesen Prozess zu automatisieren. Es kann helfen, eine einheitliche Ansicht für alle Blätter beizubehalten, wie z.B. das Sichtbarhalten von Kopfzeilen oder Schlüsselspalten in großen Arbeitsmappen. Beachten Sie, dass diese Methode erfordert, dass Sie die Zelle auswählen, in der Sie den Bereich fixieren möchten, da VBA basierend auf der aktiven Zelle in jedem Blatt arbeitet.

1. Wenn Sie alle Arbeitsblätter an derselben Position fixieren möchten, wählen Sie eine Zelle aus, die Sie im Arbeitsblatt fixieren möchten, und halten Sie dann die Umschalttaste gedrückt, um alle Blattregisterkarten auszuwählen.

2. Drücken Sie ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

3. Klicken Sie im VBA-Editor-Fenster auf Einfügen > Modul, dann kopieren und fügen Sie den folgenden VBA-Code in das Modulfenster ein:

VBA-Code: Alle Arbeitsblätter auf einmal in Excel fixieren

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Drücken Sie zur Ausführung F5 oder klicken Sie auf die Schaltfläche Ausführen. Dadurch werden die fixierten Bereiche an der Position der aktiven Zelle für alle Arbeitsblätter angewendet.

Hinweis: Wenn Sie nicht alle Arbeitsblätter ausgewählt haben und die aktive Zelle zwischen den Blättern variiert, können sich die Positionen der fixierten Bereiche von Blatt zu Blatt unterscheiden. Um Gleichmäßigkeit zu gewährleisten, richten Sie die aktive Zelle immer vor dem Ausführen des Codes aus.

Aufheben von fixierten Bereichen für alle Arbeitsblätter auf einmal mit VBA-Code

Wenn mehrere Arbeitsblätter fixierte Bereiche haben und Sie diese Einstellung von allen Blättern gleichzeitig entfernen möchten, kann eine VBA-Lösung den Prozess erheblich beschleunigen. Anstatt Bereiche manuell Blatt für Blatt aufzuheben, hebt das folgende Makro alle Arbeitsblätter auf einmal auf.

1. Öffnen Sie die Arbeitsmappe, die über mehrere Arbeitsblätter fixierte Bereiche enthält.

2. Drücken Sie ALT + F11, um den Editor Microsoft Visual Basic for Applications zu starten.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein:

VBA-Code: Fixierte Bereiche für alle Arbeitsblätter auf einmal in Excel aufheben

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Drücken Sie F5 oder klicken Sie auf die Schaltfläche Ausführen, um auszuführen. Alle Arbeitsblätter mit fixierten Bereichen werden diese sofort entfernt haben.

Bereich fixieren/aufheben für alle Arbeitsblätter mit einem Klick mit Kutools für Excel anwenden

Wenn Sie lieber keine VBA verwenden möchten oder nach einer einfacheren, codefreien Methode suchen, bietet Kutools für Excel eine effektive Möglichkeit, Bereiche fixieren oder aufheben über alle Arbeitsblätter mithilfe eines einfachen Menüs anzuwenden. Diese Funktion ist ideal für Benutzer, die eine schnelle, zuverlässige Lösung mit minimalen Schritten und ohne Makroeinrichtung wünschen. Die Funktionen „Fixierte Bereiche für mehrere Arbeitsblätter“ und „Fixierte Bereiche für mehrere Arbeitsblätter aufheben“ arbeiten nahtlos zusammen, um fixierte Bereiche in jedem Arbeitsblatt mit einer einzigen Aktion einzurichten oder zu entfernen. Dies spart erheblich Zeit bei großen Arbeitsmappen und verringert das Risiko von Inkonsistenzen zwischen den Blättern.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die Zelle aus, an der Sie Bereiche in allen Arbeitsblättern fixieren möchten (z.B. Zelle B2, wenn Sie Zeile 1 und Spalte A sichtbar halten möchten). Diese Position wird einheitlich auf jedes Arbeitsblatt angewendet. Siehe Screenshot:

2. Klicken Sie im Excel-Menüband auf Kutools Plus > Arbeitsblatt > Fixierte Bereiche für mehrere Arbeitsblätter. Siehe Screenshot:

3. Alle Arbeitsblätter werden sofort fixierte Bereiche an derselben festgelegten Zellenposition (z.B. B2) haben, sodass Ihre Ansicht über die gesamte Arbeitsmappe hinweg konsistent bleibt.

Hinweis: Um fixierte Bereiche mit einer einzigen Operation von allen Arbeitsblättern zu entfernen, wählen Sie Kutools Plus > Arbeitsblatt > Fixierte Bereiche für mehrere Arbeitsblätter aufheben. Dies bietet Flexibilität, um die Ansicht bei Bedarf anzupassen, wenn Sie mit großen oder komplexen Datensätzen arbeiten. Die Funktion ist besonders hilfreich bei der Vorbereitung von Vorlagen, bei Vorstandssitzungen oder wann immer Sie eine schnelle konsistente Navigation wünschen.

Demo: Bereich fixieren/aufheben für alle Arbeitsblätter mit einem Klick mit Kutools für Excel anwenden