Gruppe
Allgemein
Problem
Wie kann ich durch 2 InputBoxes Start- und Endzeile abfragen und dann in Zelle A1 die Summe der Werte von der Start bis zur Endzeile in Spalte A bilden lassen?
StandardModule: basMain
Sub VariableSumme()
Dim sVon As String
Dim sBis As String
sVon = InputBox("Von:", , 2)
If sVon = "" Then Exit Sub
sBis = InputBox( _
prompt:="Bis:", _
Default:="5000")
If sBis = "" Then Exit Sub
Range("A1").FormulaR1C1 = "=sum(R" & sVon & "C:R" & sBis & "C)"
End Sub