VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Numerische InputBox-Werte fortlaufend in eine Spalte eintragen

Gruppe

Dialog

Bereich

InputBox

Thema

Numerische InputBox-Werte fortlaufend in eine Spalte eintragen

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

    


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