Letzte Zeile/Spalte eines Datenbereiches finden (VBA)

29.03.1999


Wer kennt es nicht, man will Werte eines Zellbereich
auf einen Wert �berpr�fen.
Ist der Bereich nicht genau festgelegt,
kennt man auch nicht die letzte Zeile oder Spalte.

Mit der folgenden Anweisung hat dies ein Ende !
Leere Zellen spielen keine Rolle,
die Anweisung ermittelt die absolut letzte Zelle.

'letzte Zeile in Spalte A suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Und was mit Zeilen geht, geht nat�rlich auch mit Spalten:

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

 

Download - 13 KB