Ausgeblendete Spalten werden nicht gezählt

[schellfred]

Hallo,
ich versuche in einer Tabelle die letzte gefüllte Spalte zu ermitteln. Die Spalten können aber auch ausgeblendet sein.  

Diese 2 Anweisungen gehen nur bis zur letzten sichtbaren Spalte, danach habe ich aber noch welche.

 Cells(2, Columns.Count).End(xlToLeft).Column
 Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column 


Habt ihr eine Lösung für mich.

Vielen Dank Rene

[Kuwer]

Hallo Rene,

die Find-Methode passt doch.

Gruß, Uwe

[Fennek]

Hallo,

einer der möglichen Ansätze wäre

Code:

Set rng = Range("A1").CurrentRegion

Debug.Print rng.Columns.Count, rng.Address

mfg

[schellfred]

Hallo,
leider funktioniert sie bei mir nicht. Ich habe aktuell 57 Spalten, Spalte 1-11 und Spalte 34-35 sind sichtbar . Die Find Methode liefert mir als letzte belegte/benutze Zelle Nummer 34.

Grüsse Rene

---

Hallo,
leider kann ich damit nichts anfangen. Ich sollte doch eine Anzeige erhalten oder?

Code:

Debug.Print Range("A1").CurrentRegion.Address

[DIZA]

Hallo,
mhhh...

Code:

ls = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

geht, und

Code:

ls = ActiveSheet.UsedRange.Columns.Count

auch

[schellfred]

Vielen Dank
Code:

Code:

ls = ActiveSheet.UsedRange.Columns.Count

geht.

Mein Fehler war das ich über die ganze Zeile 5 einen Autofilter gelegt hatte und Excel hat dann immer bis zum Ende gelesen. Jetzt geht der Autofilter nur soweit wie die letzte Spalte mit Werten und es geht. VIELEN Dank für die Hilfe und Denkanstöße.

Grüse Rene