Private Sub SpinButton_Change()

'Wert im Textfeld anzeigen

TextBox.Text = SpinButton.Value

End Sub

 

_______________________________________________________________________________________________________

Private Sub TextBox_Change()

'Textbox mit dem SpinButton synchronisieren

If IsNumeric(TextBox.Value) And TextBox.Value >= SpinButton.Min And TextBox.Value <= SpinButton.Max Then

'Wert zuweisen

SpinButton.Value = TextBox.Value

Else

'Zahl außerhalb des gültigen Bereichs -> Behalte den aktuellen Wert bei

TextBox.Value = SpinButton.Value

End If

End Sub

 

_______________________________________________________________________________________________________

Private Sub UserForm_Initialize()

 

'Startwert festlegen

SpinButton.Value = 10

'Obere und untere Grenze festlegen

SpinButton.Max = 20

SpinButton.Min = 0

'Größe der Sprünge festlegen

SpinButton.SmallChange = 2

'Verzögerungszeit festlegen

SpinButton.Delay = 50

 

End Sub

 



Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)