Wie kann ich mehrere Arbeitsblätter gleichzeitig einfrieren / wieder einfrieren?
Angenommen, Sie haben eine große Arbeitsmappe, die Hunderte von Arbeitsblättern enthält, und jetzt müssen Sie die Einfrierfenster anwenden, um alle Arbeitsblätter gleichzeitig einzufrieren. Mit der Funktion "Fenster einfrieren" von Excel können Sie jeweils nur ein Arbeitsblatt einfrieren. Gibt es eine Möglichkeit, alle Arbeitsblätter in Excel sofort auf einmal einzufrieren oder wieder einzufrieren?
Wenden Sie Freeze Panes mit VBA-Code gleichzeitig auf alle Arbeitsblätter an
Wenden Sie Unfreeze Panes mit VBA-Code gleichzeitig auf alle Arbeitsblätter an
Wenden Sie mit Kutools for Excel mit einem Klick Freeze / Unfreeze Panes auf alle Arbeitsblätter gleichzeitig an
Wenden Sie Freeze Panes mit VBA-Code gleichzeitig auf alle Arbeitsblätter an
Mit dem folgenden Code können Sie die Einfrierfenster auf alle Arbeitsblätter anwenden. Führen Sie die folgenden Schritte aus:
1. Wenn Sie alle Arbeitsblätter an derselben Position einfrieren möchten, wählen Sie eine Zelle aus, die Sie im Arbeitsblatt einfrieren möchten, und halten Sie sie gedrückt Shift Taste, um alle Blattregisterkarten auszuwählen.
2. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Frieren Sie alle Arbeitsblätter gleichzeitig in Excel ein
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. Und dann drücken F5 Taste, um diesen Code auszuführen, und alle Arbeitsblätter wurden mit den Einfrierfenstern an derselben Position angewendet.
Hinweis: Wenn nicht alle Arbeitsblätter ausgewählt sind und sich die aktiven Zellen jedes Arbeitsblatts an verschiedenen Positionen befinden, werden die Einfrierfenster an den verschiedenen Stellen als aktive Zellen angezeigt.
Wenden Sie Unfreeze Panes mit VBA-Code gleichzeitig auf alle Arbeitsblätter an
Wenn mehrere Arbeitsblätter mit den Einfrierfenstern in Ihrem Excel angewendet werden, wie können Sie sie gleichzeitig auftauen, außer sie einzeln aufzufrieren?
1. Starten Sie Ihre Arbeitsmappe, deren Arbeitsblätter mit den Einfrierfenstern angewendet wurden.
2. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Entfrosten Sie alle Arbeitsblätter gleichzeitig in Excel
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. Und dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle Arbeitsblätter, die mit den Einfrierfenstern angewendet wurden, wurden sofort nicht mehr eingefroren.
Wenden Sie mit Kutools for Excel mit einem Klick Freeze / Unfreeze Panes auf alle Arbeitsblätter gleichzeitig an
Wenn Sie mit den VBA-Codes nicht vertraut sind, finden Sie hier ein leistungsstarkes Tool: Kutools for Excel, seine Frieren Sie mehrere Arbeitsblätter ein und Beim Auftauen werden mehrere Arbeitsblätter entfernt Mithilfe von Dienstprogrammen können Sie alle Arbeitsblätter der aktuellen Arbeitsmappe gleichzeitig einfrieren oder freigeben.
Hinweis:Um dies anzuwenden Frieren Sie mehrere Arbeitsblätter einZunächst sollten Sie die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.
Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:
1. Wählen Sie eine Zelle aus, in der Sie den Einfrierbereich für alle Arbeitsblätter anwenden möchten. In diesem Fall klicke ich auf Zelle B2 (siehe Abbildung):
2. Dann klick Kutoolen Plus > Arbeitsblatt > Frieren Sie mehrere Arbeitsblätter ein, siehe Screenshot:
3. Und dann wurden alle Ihre Arbeitsblätter auf die Einfrierfenster an derselben Position der Zelle B2 angewendet.
Note: Wenn Sie sie sofort einfrieren möchten, müssen Sie nur die Funktion zum Auftauen mehrerer Arbeitsblätter aufheben, indem Sie auf klicken Kutoolen Plus> Arbeitsblatt > Beim Auftauen werden mehrere Arbeitsblätter entfernt.
Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!
Demo: Wenden Sie mit Kutools for Excel mit einem Klick Freeze / Unfreeze Panes auf alle Arbeitsblätter gleichzeitig an
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!