Thema: Numerische InputBox-Werte fortlaufend in eine Spalte eintragen

StandardModule: basMain

Sub InputWerte()
   Dim var As Variant
   Dim iRow As Integer
   If IsEmpty(Cells(1, 1)) Then
      iRow = 1
   Else
      iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   End If
   var = 1
   Do Until var = False
      var = Application.InputBox( _
         prompt:="Wert:", _
         Default:=var, _
         Type:=1)
      If var = False Then Exit Sub
      Cells(iRow, 1).Value = var
      iRow = iRow + 1
   Loop
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und InputBox