Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Numerische InputBox-Werte fortlaufend in eine Spalte eintragen

Gruppe

InputBox

Problem

Wie kann ich durch InputBox-Aufrufe eingelesene Werte nacheinander in eine Spalte einlesen?

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

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