Wie kann man die Größe jedes Arbeitsblatts einer Arbeitsmappe überprüfen?
Angenommen, Sie haben eine umfangreiche Arbeitsmappe mit mehreren Arbeitsblättern und möchten schnell die Größe jedes einzelnen Blatts ermitteln, um herauszufinden, welches verkleinert werden muss – gibt es dafür effiziente Methoden?
Überprüfen der Größe jedes Arbeitsblatts mithilfe von VBA-Code
Überprüfen der Größe jedes Arbeitsblatts mit Kutools für Excel
Überprüfen der Größe jedes Arbeitsblatts mithilfe von VBA-Code
Mit dem folgenden VBA-Code ermitteln Sie im Handumdrehen die Größe jedes Arbeitsblatts in Ihrer Arbeitsmappe. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten „ALT“ + „F11“ gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Überprüfung der Größe jedes Arbeitsblatts in einer Arbeitsmappe
Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
xOutWs.Delete
Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = xOutName
.Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xOutName Then
xWs.Copy
Application.ActiveWorkbook.SaveAs xOutFile
Application.ActiveWorkbook.Close SaveChanges:=False
Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
Kill xOutFile
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub
3. Drücken Sie anschließend die Taste „F5“, um den Code auszuführen. Es wird ein neues Arbeitsblatt mit dem Namen „KutoolsforExcel“ in die aktuelle Arbeitsmappe eingefügt, das jeweils den Arbeitsblattnamen und die Dateigröße – in Bit – enthält. Siehe Screenshot:
Überprüfen der Größe jedes Arbeitsblatts mit Kutools für Excel
Wenn Sie „Kutools für Excel“ installiert haben, können Sie mit dem Hilfsprogramm „Arbeitsmappe trennen“ die gesamte Arbeitsmappe in separate Dateien aufteilen und anschließend im entsprechenden Ordner die Größe jeder einzelnen Datei prüfen.
„Kutools für Excel“ bietet über 300 praktische Excel-Tools – testen Sie es jetzt 30 Tage lang kostenlos und ohne Einschränkungen!Jetzt herunterladen.
Führen Sie nach der Installation von Kutools für Excel die folgenden Schritte aus:
1. Öffnen Sie die Arbeitsmappe, deren Arbeitsblattgrößen Sie überprüfen möchten, und klicken Sie auf „KUTOOLS PLUS“ > „Arbeitsmappe“ > „Arbeitsmappe trennen“.
2. Aktivieren Sie im Dialogfeld „Arbeitsmappe trennen“ alle Arbeitsblätter und klicken Sie auf „Teilen“. Geben Sie anschließend einen Ordner an, in dem die neuen Arbeitsblattdateien gespeichert werden sollen. Siehe Screenshots:
 |
 |
 |
3. Danach wird jedes Arbeitsblatt Ihrer aktuellen Arbeitsmappe als separate Excel-Datei gespeichert – so können Sie direkt im angegebenen Ordner die Größe jeder Datei prüfen.
Weitere Informationen zur Trennfunktion dieser Arbeitsmappe finden Sie hier.
Verwandte Artikel:
Wie teilt man eine Arbeitsmappe in separate Excel-Dateien auf?
Wie exportiert und speichert man Blätter oder Arbeitsblätter als neues Arbeitsblatt in Excel?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins