VBA-Funktion zur Ermittlung des selektierten Bereichs:

Function getRange() As Range
' get selected range of cells

    Set getRange = Application.Selection          ' assign selected area

End Function