Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mit InputBoxes Zeilennummern abfragen und Summe bilden

Gruppe

Meldung

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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