Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich