Office: User Form Multiseiten mit Options Button wechsel

Hallo zusammen,

ich habe da ein kleines Problem,ich würde gerne in einer User Form von einer Multipage Seite zur nächsten wechsel, wenn einer der Options Button die auf der Seite sind ausgewählt wurde. Irgendwo habe ich den Code dazu schon mal gesehen, finde ihn aber nicht mehr wieder. Vieleicht kann mir ja hier jemand helfen.

Gruß Tdnum

:)

 

Multipage.Value = 0 (1,2,3, usw. = Index der page)

 

Hallo xlph,
danke dass Du so schnell geantwortet hast.
Mit meinem Halbwissen komme ich da nicht weiter. Ich weiß, dass ich mit: „ Multipage.Value = X „ die Seite anspreche die ich haben möchte, aber was muss den davor stehen. Ich muss doch noch irgendwie vorher einen meiner 83 Option Button ansprechen bevor der Befehl kommt Seite wechseln.
Gruß Ingo

 

Code:

 

Hallo xlph,

ich weiß nicht ob ich mich richtig ausgedrückt habe? Bei diesem Code spreche ich ja jeden Button einzeln an, aber wie schon mal gesagt(oder auch nicht) ich habe auf der ersten Multipageseite 83 Button. Wenn ich jetzt irgendeinen anklicke, soll auf die nächste Seite gewechselt werden. Auf Seite zwei habe ich dann 15 Button und auch hier würde ich gerne einen anklicken und dann auf Seite drei springen. Ich habe die Button einer Seite auch Gruppiert, da ich sie noch auslese. Das klappt bei mir auch nur das mit dem Seite wechseln funktioniert nicht.

Gruß Tdnum

 

Hallo,

das löst du am besten mit einer Klasse. Schon mal gemacht oder brauchst du ein Beispiel?

 

Hallo,

ne das habe ich noch nicht gemacht.

Ein Beispiel wäre Toll, dann könnte ich das mal versuchen für mich anzupassen.

Gruß Tdnum

 

nur, um auf die nächste Seite zu wechseln, braucht man ja keine 83 Buttons. Auch keine Buttonklasse....*wink.gif*

...was unterscheidet und was verbindet die Buttons? Was soll denn passieren, bei Klick auf Button 1, 2 25 oder 83?

 

Hallo,

dann schau dir das mal an:

 

Hallo Nepumuk,

genau so was habe ich gesucht. Danke!

Ich werde jetzt mal versuchen den Code in meinem User Form einzubauen.

Gruß Tdnum

P.S. Melde mich noch mal wenn ich es hinbekommen habe.*mrcool

 

Hallo Nepumuk,
ich habe deinen Code jetzt mal in meine Datei übernommen und das funktioniert alles super.
Danke noch mal für Deine Hilfe.
Ich hätte da jetzt nur noch eine Frage. Ich muss noch eine Datei machen in der ich Deinen Code auch nutzen werde, aber hier soll das automatische weiterspringen der Seiten zum Beispiel nur bei den ersten beiden Seiten funktionieren und bei den, ich sag mal Letzen drei Seiten nicht mehr.
Kannst Du mir da vielleicht auch noch helfen? *confused.gif*

Gruß Tdnum

 

Hallo,

schreib mal auf von welcher Seite auf welche gesprungen werden soll.

Beispiel:

1 -> 3

Wieder per OptionButton? Sind auf allen Seiten solche Buttons?

 

Hallo,

von Seite 1 auf Seite 2 und dann von Seite 2 auf Seite 3.

Ja auch da sind OptionButton vorhanden und auf allen anderen Seiten dann auch.

Gruß Tdnum

 

Hallo,

teste mal:

Option Explicit

Private mobjOptionButtonClassCollection As Collection

Private Sub UserForm_Initialize()
Dim objOptionButtonClass As clsOptionButton
Dim objPage As MSForms.Page
Dim objControl As Control
Dim lngPage As Long, lngIndex As Long
lngPage = 1
Set mobjOptionButtonClassCollection = New Collection
For lngIndex = 0 To 1
For Each objControl In MultiPage1.Pages(lngIndex).Controls
If TypeName(objControl) = "OptionButton" Then
Set objOptionButtonClass = New clsOptionButton
With objOptionButtonClass
.Page = lngPage
Set .MultiPage = MultiPage1
Set .OptionButton = objControl
Call mobjOptionButtonClassCollection.Add(Item:=objOptionButtonClass)
End With
End If
Next
lngPage = lngPage + 1
Next
End Sub

Private Sub UserForm_Terminate()
Set mobjOptionButtonClassCollection = Nothing
End Sub

 

Super!! Klappt prima.

Viele, vielen Dank!

Gruß Tdnum