Excel vorhandene Spalten abfragen zuvor "hidden" gesetzt - Anzahl ist immer gleich

Question

Hallo Forum,

verstecke mittels

.Columns("D:XFD").EntireColumn.Hidden = True 

Spalte die sind dann auch weg :-)

Aber wenn ich diesen Bereich abfrage 

.Columns.EntireColumn.SpecialCells(XlCellType.xlCellTypeVisible).Range("A:O").Count)

immer die gesamte Anzahl von A:0 ob versteckt oder nicht (mit D:XFD müssten es 3 seine)! Ich möchte ja nur die sichtbare Anzahl der Spalten wissen.

Wo ist mein Fehler?

Ciao, Bitfox

Answer 1

Hallo Bitfox,

der kleine Fehler liegt daran, dass Du als letztes in Deiner Zeile noch einmal RANGE("A:O") verwendest, damit hast Du das SpecialCells quasi wieder entfernt.

So in etwa sollte die zeile aussehen:

...Range("A:O").SpecialCells(XlCellTypeVisible).Columns.Count 

Aber Achtung, es muss mindestens eine Spalte übrig (sichtbar) sein, sonst läuft das in einen Fehler!

Grüße

Roland

Answer 2

Hallo Roland,

SUPER Du hast recht, es läuft so wie Du geschrieben hast :-)

Ich probier da schon 1 Tag rum und kam nicht drauf ...

DANKE.

---

Ciao, Bitfox