Dieses Beispiel zeigt die End-Eigenschaft des Range-Objekts in Excel VBA. Wir werden diese Eigenschaft verwenden, um den Bereich von der aktiven Zelle auf den letzten Eintrag in einer Spalte auszuwählen.

Situation:

Einige Verkaufszahlen in Spalte A. Angenommen, Sie mehr Verkaufszahlen im Laufe der Zeit hinzufügen.

From Active Cell to Last Entry in Excel VBA

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Um den letzten Eintrag in einer Spalte auswählen, indem Sie die folgende Codezeile:

Range("A5").End(xlDown).Select

Hinweis: statt Range ( „A5“), können Sie auch Bereich verwenden ( „A1“), Range ( „A2“) usw. Dieser Code Zeile Drücken der END + Pfeil nach unten entspricht.

Ergebnis, wenn Sie auf das Befehlsschaltflächen auf dem Blatt klicken:

Last Entry

  1. Um den Bereich von Zelle A5 bis zum letzten Eintrag in der Spalte auswählen, fügen Sie die folgende Codezeile:

Range(Range("A5"), Range("A5").End(xlDown)).Select

Ergebnis, wenn Sie auf das Befehlsschaltflächen auf dem Blatt klicken:

From Cell A5 to Last Entry 3. To select the range from the Active Cell to the last entry in the column, simply replace Range(„A5“) with ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

Ergebnis, wenn Sie Zelle A2 aus und klicken Sie auf das Befehlsschaltflächen auf dem Blatt:

From Active Cell to Last Entry Result

Hinweis: Sie können die Konstanten verwenden xlUp, xlToRight und xlToLeft zu bewegen in den anderen Richtungen. Auf diese Weise können Sie einen Bereich aus der aktiven Zelle auf den letzten Eintrag in einer Zeile auswählen.