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
|
