Mit einem Spinbutton möchte ich den Wert einer, in einem Formular befindliche TextBox von 15 auf 30, mit Schrittweite 1 hoch und runter zählen!
Hat jemand ein Beispiel dazu?
Vielen Dank im voraus!
Gruß Ludwig
Option Explicit
Private Sub SpinButton1_SpinDown()
If TextBox1 = "" Then
TextBox1 = -1
Else
TextBox1 = CDbl(TextBox1) - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
If TextBox1 "" Then
TextBox1 = CDbl(TextBox1) + 1
Else
TextBox1 = 1
End If
End Sub