Registriert seit: 07.01.2022
Version(en): office-2019
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
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Rene,
die Find-Methode passt doch.
Gruß, Uwe
Registriert seit: 06.12.2015
Version(en): 2016
27.06.2023, 08:55
(Dieser Beitrag wurde zuletzt bearbeitet: 27.06.2023, 09:14 von Fennek.)
Hallo,
einer der möglichen Ansätze wäre
Code:
Set rng = Range("A1").CurrentRegion
Debug.Print rng.Columns.Count, rng.Address
mfg
Registriert seit: 07.01.2022
Version(en): office-2019
27.06.2023, 09:03
(Dieser Beitrag wurde zuletzt bearbeitet: 27.06.2023, 09:10 von 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
Registriert seit: 11.12.2022
Version(en): 365 / 2021
Hallo,
mhhh...
Code:
ls = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
geht, und
Code:
ls = ActiveSheet.UsedRange.Columns.Count
auch
Gruß Dirk
---------------
- Wenn du nicht weißt, wo du hin willst, ist es egal, welchen Weg du einschlägst.
Registriert seit: 07.01.2022
Version(en): office-2019
27.06.2023, 12:17
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