Hey Leute,
Ich bin am verzeifeln. Seit Stunden suche ich nach einer lösung aber nichts funktioniert.
Ich habe eine Inputbox wo ich Zahlen zwischen 0-100 eingebe die in spalte A fortlaufend eingetragen werden. wenn ich aber die zahl 0 eingebe und enter klicke schließt sich die Inputbox. Wie kann ich dem makro sagen das Null nicht Falsch ist und er 0 als Zahl behandeln soll.
Kann mir jemand helfen?
Hier der Code:
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
|