Letzte Spalte einer Tabelle

[joshua]

Hey Leute!

Ich komme gerade überhaupt nicht weiter, wie ich die letzte Spalte einer Tabelle finden kann, in den Zeilen 2-50.
Bisher habe ich folgende Variante benutzt, damit ermitteln ich jedoch nur die letzte Zeile innerhalb einer Spalte:

Code:

LastRow = Range("B2:B50").SpecialCells(xlCellTypeLastCell).Row

Wie kann ich dies nun auf einern bereich erweitern? Brauche ich hierfür eine weitere Varibale bzw. Schleife für die Spalte?
Beste Grüße!

[Der Steuerfuzzi]

Hallo,

schau mal hier: http://www.excel-inside.de/vba-loesungen...-ermitteln

Code:

LastRow = Cells(Rows.Count, "B").End(xlUp).Row

Die Variante oben ermittelt die Zeilennummer der letzten gefüllten Zelle in Spalte B.

Den Bereich Deiner Variante kannst Du erweitern, indem Du die Bezüge in Range anpasst (also statt "B2:B50" entsprechend andere Werte eingibst.

[joshua]

Vielen Dank für die Antwort.
Das verstehe ich nicht ganz.
Die letzte Spalte ich ja unbekannt, deshalb wollte ich kein "B:.." angeben.

Zie ist es die letzte benutze Spalte innerhalb einer gesamten Tabelle zu ermitteln.
Dies habe ich nun folgendermaßen hinbekommen:

Code:

LastColumn = Cells.SpecialCells(xlCellTypeLastCell).Column

 Für (bessere) Alternativen bin ich immer offen (:

[Der Steuerfuzzi]

Dass Du die letzte Zeile in der gesamten Tabelle suchst hast Du ja nicht geschrieben. Zudem wäre die Lösung auch in meinem Link gestanden (zB unter 1a).

[joshua]

Hallo Steuerfuzzi,
aber das stimmt nicht!

Ich habe im Eingangspost sowie in #3 geschrieben, dass ich die letzte SPALTE in der gesamten Tabelle suche!
Nicht die letzte Zeile. Ich habe nur ein Beispiel beschrieben, mit dem ich normalerweise die letzte Zeile innerhalb einer Spalte ermittel.
Ich möchte die letzte SPALTE in den Zeilen 2-50 ermitteln.


Beste Grüße

[GMG-CC]

Moin,
du hast eine PN ...

[Rabe]

Hi,

hier mal ungetestet:
LastColumn = Rows("2:50").SpecialCells(xlCellTypeLastCell).Column
oder
LastColumn = Cells("2:50", Column.Count).End(xlUp).Column
oder
LastColumn = Cells(Rows("2:50"), Column.Count).End(xlUp).Column

[schauan]

Hallo Joshua,

du hattest das mit der Tabelle aber auch auf die Zeilen 2-50 eingeschränkt.

wie ich die letzte Spalte einer Tabelle finden kann, in den Zeilen 2-50.

Das könnte man dann auch so mit Formel lösen, siehe excelformeln.de:

{=MAX(WENN(B2:XFD50<>"";SPALTE(B:XFD)))}