Note: The other languages of the website are Google-translated. Back to English

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


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 Verschiebung 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.


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.


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):

doc alle Blätter einfrieren 1-1

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.

Hinweis: 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!


Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (6)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr geehrte Damen und Herren, ich habe einen Test in meiner Arbeitsmappe. Beachten Sie, dass Sie vor dem Anwenden dieses Makros die Maus zu der Zelle bewegen müssen, die Sie zum Anwenden des Einfrierbereichs im Blatt benötigen. es ist wirklich hilfreich. diese Info ist, was ich suche. vielen dank Lan
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das in meiner Arbeitsmappe ausprobiert und es hat sehr gut funktioniert. Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
möchten in der Lage sein, die oberste Zeile auf mehreren Arbeitsblättern einzufrieren
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist es möglich, dies nur auf ausgewählten Arbeitsblättern zu tun?

was müsste ich im code ändern.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Fernando,

Um das Einfrieren-Fenster auf ausgewählte Blätter anzuwenden, verwenden Sie bitte den folgenden Code:



Unter Einfrieren ()

'Updateby Extendoffice

Dim Ws als Arbeitsblatt

Dim xArrName als Variante

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Ändern Sie die Blattnamen nach Bedarf

Application.ScreenUpdating = False

Für jedes xS in xArrName

Setze Ws = Arbeitsblätter(xS)

Wenn nicht, dann ist Ws nichts

Ws.Aktivieren

Mit Application.ActiveWindow

.FreezePanes = True

Ende mit

End If

Weiter

Application.ScreenUpdating = True

End Sub



Bitte versuchen Sie es, danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies würde funktionieren, aber ich müsste es jedes Mal ändern, wenn ich versuche, es in einer anderen Arbeitsmappe auszuführen.

Kann das Makro auf die Blätter geändert werden, die ich im Hauptbereich auswähle, indem ich auf eines klicke und die Umschalttaste drücke und die anderen auswähle?
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL