Gruppe
Allgemein
Problem
Wie kann ich einen benannten Zellbereich jeweils um eine Zeile erweitern und die letzte Zelle im Bereich aktivieren?
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