was ist falsch? Ein Vergleich ist nicht möglich, da die Meldung der MSGBOX immer Ausgibt "(diff <)".
EEND und EBEG sind zwei Daten in zwei Zellen (Datum) und ergeben voneinander subtrahiert "diff". Wenn ich "diff" nun mit einer Zahl in einer Textbox vergleiche kommt immer das gleiche Ergebnis, egal ob "diff" größer oder kleiner als der Eintrag in der Textbox ist.
Es folgt nun als erstes der Code des OK-Button, als zweites der der Textbox und als letztes der des Spinbuttons.
Wenn jemand den Fehler erkennt, würde ich mich freuen.
Gruß
Felix
Private Sub CommandButton1_Click()
Dim diff, Ausfall$
diff = Range("EEND").Value - Range("EBEG").Value
If diff < AU.Value Then
MsgBox ("diff <")
End If
If diff > AU.Value Then
MsgBox ("diff >")
End If
End Sub
Private Sub AU_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub SpinButton3_Change()
NW.Value = SpinButton3 / 4
End Sub