Beispiel zur CurrentRegion-Eigenschaft

In diesem Beispiel wird die aktuelle Region in Sheet1 markiert.

Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select

In diesem Beispiel wird vorausgesetzt, dass das erste Tabellenblatt eine Tabelle mit einer Kopfzeile enthält. Die Tabelle wird mit Ausnahme der Kopfzeile markiert, wobei sich die aktive Zelle vor dem Ausführen des Beispiels innerhalb der Tabelle befinden muss.

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count).Select