Dimensionierung
06.01.2017 15:23:02
Rolf
das folgende kleine Makro funktioniert und zeigt die Summe eines markierten Spaltenabschnittes.
Allerdings nur ohne "Option Explicit"!
Mit der Dimensionierung von Arr und Arr(4) komme ich nicht zurecht.
Sub Delta()
r = ActiveCell.Column
BS = ActiveWindow.RangeSelection.Address
Arr = Split(BS, "$")
zz = Replace(Arr(4), ",", "") + 1
Cells(zz, r) = WorksheetFunction.Sum(Range(BS))
End Sub
Danke und viele Grüße
Rolf