Gruppe
Allgemein
Bereich
Bereich
Thema
Benannten Bereich erweitern
Problem
Wie kann ich einen benannten Zellbereich jeweils um eine Zeile erweitern und die letzte Zelle im Bereich aktivieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Auswaehlen()
Dim rng As Range
Dim iRow As Integer, iCol As Integer
Set rng = Selection
iRow = rng.Rows.Count
iCol = rng.Columns.Count
rng.Resize(iRow + 1, iCol).Name = "Datenbereich"
With Range("Datenbereich")
.Select
.Cells(.Cells.Count).Activate
End With
End Sub