du kannst die Zuweisungen in den Ereignisprozeduren vornehmen:
Gruss
Andreas
Private Sub TextBox21_Change()
Dim kmg_nr
With UserForm1
' Eingabe wurde gelöscht
kmg_nr = Val(.[TextBox21].text)
If kmg_nr = "" Then
Beep
kmg_nr = Val(.[SpinButton5].Min)
' Eingabe ergibt keine Zahl
ElseIf Not IsNumeric(kmg_nr) Then
Beep
kmg_nr = Left(kmg_nr, Len(kmg_nr) - 1)
' Eingabe überschreitet Maximalwert des Drehfeldes
ElseIf Fix(kmg_nr) > .[SpinButton5].Max Then
Beep
kmg_nr = Val(.[SpinButton5].Max)
.[TextBox21].text = Str(kmg_nr)
' Eingabe unterschreitet Minimalwert des Drehfeldes
ElseIf Fix(kmg_nr) < .[SpinButton5].Min Then
Beep
kmg_nr = Val(.[SpinButton5].Min)
.[TextBox21].text = Str(kmg_nr)
' Eingabe ist Zahl; wird auf alle Fälle in ganze Zahl
' umgewandelt und in das Eingabefeld zurückgeschrieben
Else
.[SpinButton5] = kmg_nr
End If
End With
End Sub
Private Sub SpinButton5_Change()
With UserForm1
.[TextBox21].text = Str(.[SpinButton5].Value)
End With
End Sub