Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: SpinButton LOOP > A,B,C,A,B,C,A,B,C,...

SpinButton LOOP > A,B,C,A,B,C,A,B,C,...
Nils
Wie Programiere ich einen SpinButton der mir einen Loop macht.
Ich habe diesen code:
Private Sub SpinButtonTyp_Change()
Worksheets("Lieferschein").Range("B2") = Application.Index(Worksheets("Daten").Range("A2:A7" _
), SpinButtonTyp)
'1-6
End Sub
Meine Liste befindet sich in A2:A7, der spinButton ist auf MIN=1 und MAX=6 eingestellt. Nachdem der SpinButton den Wert 6 angenommen hat, soll er beim nächsten Klicken in die selbe Richtung wieder bei 1 anfangen.
Im Bereich A2:A7 steht:
Typ1
Typ2
Typ3
Typ4
Typ5
Typ6
Gewünschte SpinButton Ausgabe ist also: Typ1, Typ2,...,Typ6, Typ1, Typ2,...,Typ6, Typ1, Typ2,...,Typ6, ...
Gehts sowas?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: SpinButton LOOP > A,B,C,A,B,C,A,B,C,...
07.06.2012 17:25:58
ransi
HAllo
Stelll mal Min=0 und Max=7
Dann diesen Code:
Option Explicit

Private Sub SpinButton1_SpinUp()
    If SpinButton1.Value = 7 Then SpinButton1.Value = 1
    Worksheets("Lieferschein").Range("B2") = Application.Index(Worksheets("Daten").Range("A2:A7"), SpinButton1.Value)
End Sub



Private Sub SpinButton1_SpinDown()
    If SpinButton1.Value = 0 Then SpinButton1.Value = 6
    Worksheets("Lieferschein").Range("B2") = Application.Index(Worksheets("Daten").Range("A2:A7"), SpinButton1.Value)
End Sub


Meine ersten Tests sahen recht vielversprechend aus...
ransi
Anzeige
AW: SpinButton LOOP > A,B,C,A,B,C,A,B,C,...
07.06.2012 17:46:26
Nils
Suuuuuper!
Genau das meinte ich :)
Vielen Dank!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige