ich habe eine Listbox in deren Spalte 6 sich Mengenwerte befinden, zudem eine Textbox in der man sich zu bestellende Menge eintragen kann.
Vor Übernahme des Artikels, dessen Menge in Spalte 6 der Listbox steht, soll die bestellte Menge mit der lagernden Menge verglichen werden, dazu dient mir folgender Code, jedoch funktioniert er sehr ungenau.
Habe ich eine Menge in Listbox Spalte 6 von 500 und und schreibe in die textbox 99
dann bringe er die eingebaute Meldung obwohl ja nur 99 von 500 abgerufen wird.
Woran kann das liegen?
Private Sub Auswahl_übernehmen_Click()
Dim a As Long
If UserForm7.TextBox2.Value > UserForm7.ListBox2.List(a + 1, 6) Then
MsgBox "die ausgewählte Menge ist größer als die verfügbare Menge im Lager!"
Else
End If
End Sub