HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Hallo habe problem mit Spinbutton

Forumthread: Hallo habe problem mit Spinbutton
17 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Hallo habe problem mit Spinbutton

03.02.2026 16:24:03

philipp

Hallo zusammen,
ich habe ein kleines Problem.
Private Sub SpinButton1_Change()
Sheets(SpinButton1.Value).Activate
UserForm_Initialize
End Sub
'das steht in: UserForm_Initialize
' Me.SpinButton1.Min = 1
' Me.SpinButton1.Max = 5
Die erste Tabelle wird immer als ersten selektiert bzw. aktiviert

beim ersten betätigen wird die nächste Tabelle übersprungen, nur wenn ich erst nach links gehe und dann nach rechts
geht es richtig.

mfg philipp

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hallo habe problem mit Spinbutton

03.02.2026 21:39:29

Kuwer
Weiterhin das Problem

04.02.2026 14:10:15

philipp
AW: Weiterhin das Problem

04.02.2026 14:15:30

daniel
AW: Weiterhin das Problem

04.02.2026 14:23:51

philipp
AW: Weiterhin das Problem

04.02.2026 14:40:32

schauan
AW: Hallo habe problem mit Spinbutton

04.02.2026 12:13:17

daniel
AW: Hallo habe problem mit Spinbutton

04.02.2026 16:23:14

daniel
AW: Eine Alternative

04.02.2026 16:32:35

GerdL
AW: Hallo habe problem mit Spinbutton

04.02.2026 17:02:49

daniel
AW: Hallo habe problem mit Spinbutton

04.02.2026 14:25:24

philipp
AW: Hallo habe problem mit Spinbutton

04.02.2026 14:26:37

daniel
Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 15:27:21

philipp
AW: Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 15:40:20

Kuwer
Bestens danke UWE -)

04.02.2026 19:55:08

philipp
Danke auch an die anderen Unterstützer... gr philipp

04.02.2026 19:58:28

philipp
AW: Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 16:13:58

daniel
AW: Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 16:53:23

daniel

AW: Hallo habe problem mit Spinbutton

03.02.2026 21:39:29

Kuwer

Hallo,

bei mir funktioniert das.
Unabhängig davon genügt ein einmaliges Festlegen von Min und Max.

Gruß, Uwe

Weiterhin das Problem

04.02.2026 14:10:15

philipp

Hallo Uwe,
ich habe die beiden Zeilen aus der UserForm_Initialize rausgenommen.
Leider immer noch wenn ich auf weiter klicke wird die 2. Tabelle übersprungen, erst bei zurück und dann nach vorn
wird die "Paterre" angezeigt.

Private Sub SpinButton1_Change()

    Sheets(SpinButton1.Value).Activate

        Me.SpinButton1.Min = 1

        Me.SpinButton1.Max = 5

    UserForm_Initialize

End Sub

in der UserForm_Initialize
Me.SpinButton1.Min = 1
Me.SpinButton1.Max = 5
stehen die beiden Zeilen nicht mehr.

gruß phil

AW: Weiterhin das Problem

04.02.2026 14:15:30

daniel

probiere es mal so:

Private Sub SpinButton1_Change()

    Sheets(SpinButton1.Value).Activate

End Sub

AW: Weiterhin das Problem

04.02.2026 14:23:51

philipp

Hallo Daniel,
habe uf verschoben und konnte sehen das die Tabelle übersprungen wurde und erst bei der 3. Tabelle landet.
Die oberfläche der UF wurde natürlich nicht verändert.
mfg phil

AW: Weiterhin das Problem

04.02.2026 14:40:32

schauan

Hallöchen,

ist mal wieder eine Frage der Ablauflogik ...

Private Sub SpinButton1_Change()

    Sheets(SpinButton1.Value).Activate

        Me.SpinButton1.Min = 1

        Me.SpinButton1.Max = 5

    UserForm_Initialize

End Sub

also, erst mal brauchst Du Min und Max nicht per Code festzulegen und gleich gar nicht bei jeder Änderung.

Interessant wäre eher, wenn Du am Anfang, also z.B. beim Öffnen der Datei, sicherheitshalber den Value des Buttons auf 1 setzt und das Blatt 1 aktivierst.
Dann sollte beim Betätigen des Buttons das Blatt 2 aktiviert werden, was dann ja ok ist. Logisch.
Ist das nicht gewünscht, solltest Du beim Öffnen der Datei schauen, welches Blatt aktiv ist und dann den Value des Spinbuttons auf den entsprechenden Wert setzen.

Statt Öffnen geht natürlich auch der Start oder Initialize des UF, wenn das in der zeitlichen Abfolge reicht.

AW: Hallo habe problem mit Spinbutton

04.02.2026 12:13:17

daniel

Hi

lösche mal das

UserForm_Initialize

Gruß Daniel

AW: Hallo habe problem mit Spinbutton

04.02.2026 16:23:14

daniel

schon mal so probiert:

Option Explicit



Private Sub SpinButton1_Change()

Sheets(SpinButton1.Value).Select

End Sub







Private Sub UserForm_Initialize()

SpinButton1.Value = ActiveSheet.Index

SpinButton1.Max = 5

SpinButton1.Min = 1

End Sub

AW: Eine Alternative

04.02.2026 16:32:35

GerdL

Hallo Philipp!

Private Sub CommandButton1_Click()

    

    Static weiter As Boolean

    

    If weiter Then

    

        If ActiveSheet.Index  Sheets.Count Then

            ActiveSheet.Next.Activate

        Else

            Sheets(1).Activate

        End If

            

    Else

        Sheets(1).Activate

    End If

    

    MsgBox "mach noch was "

    weiter = True



End Sub

Gruß Gerd

AW: Hallo habe problem mit Spinbutton

04.02.2026 17:02:49

daniel

noch ne alternative Programmierung für deinen Spinbutton:

Private Sub SpinButton1_SpinDown()

If ActiveSheet.Index > 1 Then Sheets(ActiveSheet.Index - 1).Select



End Sub



Private Sub SpinButton1_SpinUp()

If ActiveSheet.Index  5 Then Sheets(ActiveSheet.Index + 1).Select

End Sub

AW: Hallo habe problem mit Spinbutton

04.02.2026 14:25:24

philipp

Dann verändern sich keine Daten und wird leider noch übersprungen.
gr phil

AW: Hallo habe problem mit Spinbutton

04.02.2026 14:26:37

daniel

lade bitte mal die Datei hier hoch.

Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 15:27:21

philipp

Hallo zusammen,
gibt es eine alternative Lösung ?
Wenn ich die Userform geöffnet habe soll mittels ???? die nächste Tabelle aufgerufen
werden und natürlich die entsprechenden Daten aktualisiert werden.

gr phil

AW: Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 15:40:20

Kuwer

Hallo,

Spinbutton passt schon. Er muss halt nur beim Aufruf des UF auf das aktuelle Blatt eingestellt werden:

Private Sub UserForm_Initialize()

 Me.SpinButton1.Min = 1

 Me.SpinButton1.Max = 5

 SpinButton1.Value = ActiveSheet.Index

End Sub

Gruß, Uwe

Bestens danke UWE -)

04.02.2026 19:55:08

philipp

Danke so eingefügt klappt !
gr philipp

Danke auch an die anderen Unterstützer... gr philipp

04.02.2026 19:58:28

philipp

AW: Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 16:13:58

daniel

lade doch mal die Datei hoch.
bisher hast du nur bruchstückhaft beschrieben, was du hast.
wir können auch nicht kontrollieren, ob du unsere Anweisungen verstanden und richtig umgesetzt hast.

AW: Gibt es den alternative Lösung zu Spinbutton ???

04.02.2026 16:53:23

daniel

"gibt es eine alternative Lösung ?"

die Tastatur:
STRG+"bild/\"
STRG+"bild\/"

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