Summenproblem
27.01.2016 08:03:01
Flo
Sub Summe ()
'Summenbildung!!!!!
With oSH.Cells(1, 1).CurrentRegion.Resize(7, LastCol - 3).Offset(0, 3) 'Bereich angeben
With .Rows(.Rows.Count)
.FormulaR1C1 = "=Sum(R[2]C:RC)"
'bildet die Summe aus Zeile 7 bis eine Zeie vor
.Formula = .Value
End With
End With
End Sub
Dabei soll der Bereich unter der Summe zusammengefasst werden. Der Anfangspunkt ist dabei Fest, jedoch das Ende soll flexibel sein. Die kann ich das schreiben?
Ich hoffe ihr könnt mir helfen,
Gruß Florian