Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1264to1268
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
Inhaltsverzeichnis

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?

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!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige