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.