Drehfeldsteuerung MIN/MAX in Zelle

[Atom]

Hallo Excelfreunde,

mit einem Drehfeld soll nur der Bereich 2 bis 10 (in Zelle A1) realisiert werden. Habt ihr Tipps für mich?

Code:

Private Sub SpinButton1_SpinDown()
Sheets("Tabelle1").[A1].Value = Sheets("Tabelle1").[A1].Value - 1
'Ist der minimale Wert 2 erreicht, soll nur noch hochgezählt werden können
End Sub

Private Sub SpinButton1_SpinUp()
Sheets("Tabelle1").[A1].Value = Sheets("Tabelle1").[A1].Value + 1
'Ist der maximale Wert 10 erreicht, soll nur noch runtergezählt werden können
End Sub

Danke
Thomas

[Kuwer]

Hallo Thomas,

gib in A1 einen Wert innerhalb des Bereiches ein.
Setze dann unter Eigenschaften des SpinButtons die entsprechenden Min-/Maxwerte und verlinke auf A1.

Du brauchst also keine Zeile Code.

Gruß Uwe

[WillWissen]

Hi Thomas,

du brauchst deine Bedingungen nur in den Eigenschaften festlegen.

>> SpinButton aus ActiveX-Steuerelementen
>> Entwurfsmodus >>Rechtsklick >>Eigenschaften
>> Unter Verschiedenes >>alphabetisch
>> Min und Max eingeben und
>> Linked Cell bestimmen

[Atom]

Hallo Uwe, Hallo Günter,

danke für eure Hilfe, klappt natürlich auch so. Aber das Steuerelement "sitzt" auf einer UF.
Und da habe ich eben ein Problem. Habe schon die fragwürdigsten Zeilen geschrieben, ihr wollt gar nicht wissen welche.   
Aber das Stoppen in A1 bei Min/Max kriege ich nicht hin.

Gruß
Thomas

[Atom]

Hallo,

hier zwei Beispiele als *.xlsx und *.xlsm.

Danke.

[Glausius]

Hallo, ergänze deinen Code wie folgt:

Code:

Private Sub SpinButton1_SpinDown()
Sheets("Tabelle1").[A1].Value = Sheets("Tabelle1").[A1].Value - 1
'Ist der minimale Wert 2 erreicht, soll nur noch hochgezählt werden können
If Sheets("Tabelle1").[A1].Value < 2 Then Sheets("Tabelle1").[A1].Value = 2
End Sub

Private Sub SpinButton1_SpinUp()
Sheets("Tabelle1").[A1].Value = Sheets("Tabelle1").[A1].Value + 1
'Ist der maximale Wert 10 erreicht, soll nur noch runtergezählt werden können
If Sheets("Tabelle1".[A1] > 10 Then Sheets("Tabelle1").[A1].Value = 10
End Sub

[Kuwer]

Hallo,

Max und Min des SpinButtons lassen sich in der UF genauso einstellen!
Dann reicht dieser Code:

Private Sub SpinButton1_Change()

 Sheets("Tabelle1").Range("A1") = SpinButton1.Value

End Sub

Gruß Uwe

[Atom]

Hallo Günter und Uwe,

eure beiden Vorschläge klappen. Vielen Dank für eure Hilfe.
Die Range-Eigenschaft musste ich weglassen und so schreiben:

Code:

Private Sub SpinButton1_Change()
Sheets("Tabelle1").[A1].Value = SpinButton1.Value
End Sub

Vielen Dank und ein schönes Wochenende.

Thomas