Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SpinButton

SpinButton
amintire

Hallo alle zusammen,
ich hab in meiner Tabelle einen Spinbutton eingebaut. Es funktioniert auch wunderbar mit folgendem Code,
aber leider springt er nicht zur Zahl 1 zurück. Sprich wenn ich das Ende erreicht habe, muss ich pfeil zurück klicken um ganz zum Anfang zu kommen.
Hat jemand eine Lösung wie ich den Code anpassen kann?
Vielen Dank
Lieben Gruß
Amina
Private Sub SpinButton1_SpinDown()
akt_zeile = Sheets("Grundlagen").Range("a1")
If akt_zeile > 1 Then
Sheets("Grundlagen").Range("a1").Value = akt_zeile - 1
zeige
End If
End Sub


Private Sub SpinButton1_SpinUp()
letzte = Sheets("Grundlagen").Range("d1")
akt_zeile = Sheets("Grundlagen").Range("a1")
If akt_zeile >= letzte Then GoTo ende
Sheets("Grundlagen").Range("a1").Value = akt_zeile + 1
zeige
ende:
Exit Sub
End Sub

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

Betreff
Benutzer
Anzeige
AW: SpinButton
15.11.2010 21:34:38
Renee
Hallo,
Setze die Min-Eigenschaft auf 1. 
Private Sub SpinButton1_Change()
If SpinButton1 > [D1] Then SpinButton1 = SpinButton1.Min
[A1] = SpinButton1
End Sub
GreetZ Renée
AW: SpinButton - sos
15.11.2010 22:15:31
amintire
Hallo Renee,
danke für deine Antwort, komme aber leider nicht weiter.
Diesen Code habe ich jetzt mittlerweile so angepasst und funktioniert auch,
Wenn A1 = D1 dann springe ich bei A1 zu 0. Und kann von vorne klicken. Passt auch so.
Private Sub SpinButton1_SpinUp()
letzte = Sheets("Grundlagen").Range("d1")
akt_zeile = Sheets("Grundlagen").Range("a1")
If akt_zeile >= letzte Then GoTo ende
Sheets("Grundlagen").Range("a1").Value = akt_zeile + 1
zeige
ende:
If letzte = akt_zeile Then
Sheets("Grundlagen").Range("A1").Value = 0
End If
Exit Sub
End Sub

Allerdings bekomme ich es umgekehrt überhaupt nicht hin. Hab mal bisschen rumgebastelt, aber irgendwie fehlt mir hier eine Logik. Keine Ahnung, evtl. kann mir einer von Euch helfen.
Hier sollte es irgendwie wenn ich den Pfeil nach links klicke, dann kommt er zur letzten und wenn ich bei der letzten auf Rechts klicke springt er wieder am Anfang.
Aber so, dass ich auch durchgehend jeden Datensatz anklicken kann, nur komme ich bis zum Schluss soll es von vorne also bei 1 weitergehen, und klicke ich zurück zu 1, dann soll es bei der letzten Zahl weiter gehen.
Irgendwie kompliziert...
Vielen Dank.
Private Sub SpinButton1_SpinDown()
akt_zeile = Sheets("Grundlagen").Range("a1")
letzte = Sheets("Grundlagen").Range("d1")
zurück = Sheets("Grundlagen").Range("b1")
hinten = Sheets("Grundlagen").Range("e1")
If akt_zeile > 1 Then
Sheets("Grundlagen").Range("a1").Value = akt_zeile - 1
zeige
If akt_zeile = zurück Then
Sheets("Grundlagen").Range("A1") = hinten
End If
End If
End Sub

Anzeige
AW: SpinButton - rundherum
16.11.2010 09:04:11
Renee
Hallo,
Du willst also einen Spinbutton der einen sog. Wrap-Around macht ?
Angenommen er soll von 1-100 laufen, d.h. >100 wieder auf 1 und Dann genügt es:
a) die Eigenschaft .Min = 0
b) die Eigenschaft .Max = 101
und dieser Code (weder SpinUp, noch SpinDown) 

Private Sub SpinButton1_Change()
If SpinButton1 = SpinButton1.Min Then SpinButton1 = SpinButton1.Max - 1
If SpinButton1 = SpinButton1.Max Then SpinButton1 = SpinButton1.Min + 1
End Sub
Wenn du jetzt noch den Wert z.B. in Zelle A1 anzeigen willst, dann setze die .LinkedCell auf A1.
GreetZ Renée
Anzeige

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