Office: Prüfen ob Zeilen oder Spalten ausgeblendet sind

Hallo Freunde,

mit folgendem Code in "DieseArbeitsmappe" möchte ich gerne beim Speichern einer Datei prüfen, ob zum einen noch Filter gesetzt sind und zum anderen ob noch Zeilen und Spalten ausgeblendet sind. Falls eines davon zutrifft, möchte ich nachfragen ob vorm Speichern die Filter gelöscht werden und die Zeilen/Spalten eingeblendet werden sollen.

Wenn kein filter gesetzt ist und alles eingeblendet ist, soll die Nachfrage beim Speichern quasi NICHT erscheinen *Smilie

Code:

Mein Problem ist nun, dass ich bei der Stelle wo geprüft werden soll, ob alle Zeilen und Spalten eingeblendet sind, etwas hänge:

Code:

Weiß jemand wie ich im Code oben zusätzlich zur Filterprüfung noch prüfen kann ob alles eingeblendet ist und nur dann die MsgBox kommt?

Vielen Dank & Grüße

kryox

:)

 

Hi,

sind tatsächlich ALLE Spalten und/oder Zeilen ausgeblendet oder nur einige?

 

Es könnten nur einige Zeilen bzw. hauptsächlich Spalten ausgeblendet sein

 

Code:

 

danke erstmal!!

worauf beziehen sich die 30636?

 

Auf die Anzahl an Zellen im Bereich A1:BQ444 - kannst du ermitteln mit

Code:

oder mit de rFormel: =SPALTE(BQ1)*444

Alle Zeilen/Spalten müssen dabei eingeblendet sein.

 

Hi

kurz und knapp:
Code:

funtioniert nicht mit Excel 2003 und davor.
für diese Excelversionen müsste das .CountLarge durch .Count ersetzt werden, das wiederum funktioniert dann nicht mit Excel 2007 und später.

Gruß Daniel

 

Hi,

der Bereich ist doch bekannt A1:BQ444 - wozu also CountLarge?

 

Weil sich Zellbereichsgrössen schnell ändern können.
Wenn du dich im Makro auf einen bestimmten Zellbereich beziehst, musst du immer den Code anpassen, wenn sich der Zellbereich ändert.
Das wird gerne mal vergessen und ist damit eine mögliche Fehlerquelle, die aber nicht auffällt und dazu führen kann, dass eine Datei trotz ausgeblendeter Zeilen oder Spalten gespeichert wird.

mein Code passt immer, egal wie gross die Tabelle ist.
und wenn du die Datei mal mit einer falschen Excelversion öffnest, dann bekommst du das schon mitgeteilt, so dass ein falsches Speichern nicht möglich ist.
Mit etwas zusätzlichem Aufwand lässt sich der Code natürlich auch so programmieren, dass er auf allen Excelversionen läuft.


Gruß Daniel

 

Hi Daniel,

klar, wenn garantiert werden soll, dass auch Spalten außerhalb dieses Bereichs berücksichtigt werden sollen - was aus dem Beitrag des TO aber nicht unbedingt hervorging.

Code:

In deinem Code fehlen übrigens die Punkte vor Cells, wenn du dich mit With auf ein Tabellenblatt beziehst. Bei ActiveSheet macht das kein Problem, bei anderen aber schon.

 

Aus der Beschreibung ging nicht hervor, dass es auserhalb des genannten Bereichs noch Spalten und Zeilen gibt, die von dieser Prüfung explizit ausgeneommen werden sollen.

du kannst statt dem Cells natürlich auch einen festen Zellbereich in die Prüfung einstellen:

Code:

es ist da nicht notwendig, die Gesamtanzahl von Hand auszurechen und einzutragen, fürs Rechen ist der Rechner da.

Gruß Daniel

 

Eben - genau deshalb auch mein Vorschlag aus meinem ersten Beitrag mit Bezug auf eben diesen Bereich....

Klar, ist ja auch kein Problem, den Code aus meinem Beitrag mit der MsgBox anstelle der Zahl zu verwenden.

 

Hallo,

diese Version klapt in Excel 2003 und ff: Code:

Erstaunt bin ich, daß Berverlys Vba-Code auch in Excel 2003 läuft. obwohl die Excel 2003-Hilfe und die Objekt-Bibliothek
mit 'CountLarge' nichts anfangen kann.

Gruß von Luschi
aus klein-Paris

 

Der Code aus meinem letzten Beitrag funktioniert bereits ab Excel97.

 

Hallo Karin,

die Frage ist doch, warum daß so klappt, obwohl die Objekt-Bibliothek sich dumm stellt. Eigentlich müßte doch der Excel 2003-Compiler über 'CountLarge' stolpern.
Deshalb hatte ich es mit der bedingten Compilierung versucht: Code:

Doch wer nun denkt, Excel 2010/2003 springt nun in den #If-Zweig, sieht sich total getäuscht. Denn obwohl 'ok1' den Wert 'True' hat, wird der #Else-Zweig
ausgeführt und der Compiler jammert fürchterlich; das ist alles etwas merkwürdig!

Gruß von Luschi
aus klein-Paris