inputbox OK ohne Eingabe
Peter
bin VBA Neuling und habe folgendes Problem:
Bei einer Inputbox habe ich es endlich geschafft, dass bei Abbrechen die Box einfach geschlossen wird
und nichts weiter passiert.
Wenn man aber auf OK clickt ohne einen wert einzugeben kommt "Laufzeitfehler 13".
Ist sicher ganz einfach, aber ich komm nicht drauf.
Vielen Dank für Eure Hilfe!
Hier der Code:
Private Sub dm1_1_Click()
Dim i1 As Double
If dm1_1.Value = True Then
i1 = Application.InputBox("Bitte Menge eingeben:", "Menge")
If Not IsNumeric(i1) Then Exit Sub
End If
menge1_1 = i1
End Sub