Hallo miteinander,
gibt es eine(oder mehr)Methode, den UsedRange eines Blatts zu ermitteln? Dabei müssen jedoch auch Grafikobjekte berücksichtigt werden. Hintergrund, ich möchte aufgeblähte Dateien gelegentlich "gesundschrumpfen".
Gruß Achim
Hallo,
du musst drei verschiedene Ebenen berücksichtigen, Kommentare, andere Grafijobjekte und Zellen. Kommentare findest du mit SpecialCells, Grafikobjekte haben die Eigenschaft BottomRightCell, Zellen am schnellsten mit Find bearbeiten. Durchlaufe alle Zellen mit Kommentaren und schreib die Zeilen und Spalten jeweils dann in eine Variable, wenn die Zeilen/Spaltennummer größer als die Variable ist. Das Gleiche mit den BottomRightCells und den normalen Zellen. Immer die selben Variablen weiterschreiben. So erhältst du die Letzte Zeile und letzte Spalte. Der Rest sollte klar sein. Am besten, du kopierst den so ermittelten Bereich in ein neues Blatt und löschst das alte. Versuch mal, ob du es selbst hinbekommst, ansonsten nochmal melden.
Gruß K.Rola
Anzeige
AW: UsedRange ermitteln
Achim
Hallo K.Rola,
ich versuchs mal, wenn ich nicht weitekomme, melde ich mich morgen wieder.
Danke und gute Nacht Achim