wie kann ich denn herausbekommen, wie groß jedes einzelne Tabellenblatt von mir ist?
Habe eine Excel-Datei mit ca. 40 Blättern die sind 15 MB groß, gestern waren es noch 4. Möchte herausbekommen woran das liegt.
Grüße
Johannes
Option Explicit
Sub test()
Dim x&
For x = 1 To Worksheets.Count
Worksheets(x).SaveAs Worksheets(x).Name
Next
End Sub
Am Ende wechselst Du in den Ordner und kannst die Größe der einzelnen Blätter, die nun je eine eigene Datei sind prüfen.
Sub CheckSheets()
Dim wsh As Worksheet
Dim AnzUR As Double
Dim AnzBel As Double
Dim Erg As String
For Each wsh In ActiveWorkbook.Worksheets
Erg = Erg & wsh.Name & " | "
Erg = Erg & Format(wsh.UsedRange.CountLarge, "#,##0") & " | "
Erg = Erg & Format(WorksheetFunction.CountA(wsh.UsedRange), "#,##0") & vbLf
Next
MsgBox "Tabelle | benutzt | mit Inhalt" & vbLf & vbLf & Erg, , "Zellenbelgung pro Blatt"
End Sub
Gruß Daniel
Sub CheckSheets()
Dim wsh As Worksheet
Dim AnzUR As Double
Dim AnzBel As Double
dim i as long
With Sheets("Auswertung")
For Each wsh In ActiveWorkbook.Worksheets
i = i + 1
.cells(i, 1).value = wsh.Name
.cells(i, 2).value = wsh.UsedRange.CountLarge
.cells(i, 3).value = WorksheetFunction.CountA(wsh.UsedRange)
Next
end with
End Sub
das Blatt "Auswertung" solltst du dir neu anlegen, damit nicht zufällig Daten überschrieben werden.
Um die Größe jedes einzelnen Tabellenblatts in Excel zu ermitteln und gegebenenfalls die Excel Tabellenblatt Größe festzulegen, folge diesen Schritten:
Leeren Ordner anlegen: Erstelle einen neuen Ordner auf deinem Computer, um die exportierten Tabellenblätter zu speichern.
VBA-Editor öffnen:
ALT + F11
, um den VBA-Editor zu öffnen.Neues Modul erstellen:
Einfügen
> Modul
.Code eingeben: Füge den folgenden VBA-Code ein:
Option Explicit
Sub test()
Dim x As Long
For x = 1 To Worksheets.Count
Worksheets(x).SaveAs "C:\DeinOrdner\" & Worksheets(x).Name & ".xlsx"
Next
End Sub
Stelle sicher, dass du den Pfad zu deinem neuen Ordner anpasst.
Makro ausführen: Drücke F5
, um das Makro auszuführen. Nun findest du die einzelnen Blätter als separate Dateien im Ordner.
Fehler: Das Makro speichert keine Dateien.
Fehler: Es werden nicht alle Blätter angezeigt.
Wenn du dich mit VBA nicht wohlfühlst, kannst du auch manuell die Blätter Größen überprüfen:
STRG + ENDE
.Hier ist ein Beispiel für einen VBA-Code, der die Datengrößen Tabelle für jedes Blatt erstellt:
Sub CheckSheets()
Dim wsh As Worksheet
Dim i As Long
With Sheets("Auswertung") ' Stelle sicher, dass das Blatt "Auswertung" existiert
For Each wsh In ActiveWorkbook.Worksheets
i = i + 1
.Cells(i, 1).Value = wsh.Name
.Cells(i, 2).Value = wsh.UsedRange.CountLarge
.Cells(i, 3).Value = WorksheetFunction.CountA(wsh.UsedRange)
Next
End With
End Sub
Dieser Code gibt die Anzahl der benutzten Zellen und die Zellen mit Inhalt in das Blatt "Auswertung" aus.
Clear
in VBA, um gezielt Zellen zu leeren, die nicht mehr benötigt werden.1. Wie kann ich die Größe eines einzelnen Tabellenblatts in Excel überprüfen?
Du kannst den VBA-Code verwenden, der die Blätter in separate Dateien speichert. Dann kannst du die Größe jeder Datei im Explorer überprüfen.
2. Was tun, wenn Excel die letzte Zelle nicht korrekt anzeigt?
Drücke STRG + ENDE
, um die letzte genutzte Zelle zu finden. Wenn diese außerhalb deines Datenbereichs liegt, lösche die überflüssigen Zeilen und Spalten.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen