Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spinbutton

Spinbutton
25.02.2005 07:46:15
Kretzing
Hallo zusammen,
kann man den Spinbutton so beeinflussen, dass, man wenn die höchste Zahl erreicht ist und weiter mit dem Pfeil die Zahl weiter erhöhen möchte wieder mit der niedrigsten Zahl startet und nicht zum anderen Pfeil wechseln muss? Gibt es dafür eine Funktion?
Vielen Dank!
Gruß
André

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spinbutton
Reinhard
Hi André,
läuft noch nicht 100%ig sauber rund aber als Ansatz:

Private Sub SpinButton1_SpinDown()
With SpinButton1
If Range(.LinkedCell).Value = .Min Then SpinButton1.Value = .Max
End With
End Sub



Private Sub SpinButton1_SpinUp()
With SpinButton1
If SpinButton1.Value = .Max Then SpinButton1.Value = .Min
End With
End Sub

Gruß
Reinhard
AW: Spinbutton
Frank
Hallo André,

Private Sub SpinButton1_Change()
If SpinButton1.Value = 101 Then SpinButton1.Value = 0
'eingestellt sind SpinButton1.Max = 101 und SpinButton1.Min = 0 (bitte anpassen)
'nach Value=100 wird Value=0
Debug.Print SpinButton1.Value   'bitte in die Anwendung anpassen
End Sub

Grüße, Frank.
Anzeige
AW: Spinbutton
Frank
Hallo André,
so klappts besser:
Value auf 0 setzen,
min auf 0 setzen,
max auf 101 setzen,
Code:

Private Sub SpinButton1_SpinUp()
Debug.Print SpinButton1.Value
If SpinButton1.Value = 100 Then
SpinButton1.Value = 0
End If
End Sub

bei Klick auf "up" wird Val 1 usw. bis 100, nächster Klick wieder 1 usw...., evtl. anpassen auf die Bedürfnisse,
Grüße, Frank.

Links zu Excel-Dialogen

SpinButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige