Clever-Excel-Forum

Hallo Excel-Experten,

ich habe einen Formular mit 3 Seiten in VBA erstellt und möchte dieses

jetzt im Tabellenblatt mit Page 1 aufrufen

Bitte um um Hilfe. Was fehlt hier noch?

Option Explicit

Sub Schaltfläche1_Klicken()
UserForm1.Show
End Sub

In meiner Maske Über den Button funktioniert es problemlos (siehe unten)

Private Sub CommandButton5_Click()
Me.MultiPage1.Value = 1
End Sub

Vieln Dank im Voraus!

Gruß
Rolf

Es fehlt etwas zu viel:

Diese code recht:

Code:
Private Sub Schaltfläche1_Klicken()

    UserForm1.Show

End Sub

mit dem Code kann ich leider nicht die gewünschte Multipage aufrufen :( und komme damit nicht weiter

Hallo Rolf,

das regelst Du in der Userform selbst:

Code:
Private Sub UserForm_Activate()

  Me.MultiPage1.Value = 0

End Sub

Gruß Uwe

Hallo Uwe,

vielen Dank für deine Hilfe, dies hat mich natürlich weiter gebracht. In der Userform hab ich jetzt folgenden Code:

Code:
Private Sub UserForm_Initialize()

   Select Case Application.Caller

   Case "ImportBttn"

      Me.MultiPage1.Value = 1

   Case "ProtctBttn"

      Me.MultiPage1.Value = 0

   End Select

End Sub

im Modul:

Code:
Option Explicit

Sub ImportBttn_Click()

    Load UserForm1: UserForm1.MultiPage1.Value = 0: UserForm1.Show

End Sub

Sub ProtctBttn_Click()

    Load UserForm1: UserForm1.MultiPage1.Value = 1: UserForm1.Show

End Sub

Jetzt kann ich die gewünschten Page's zwar aufrufen, aber in der Combobox die erste Page ist leider ohne Funktion (siehe Screen). Hast Du vielleicht dazu eine Lösung oder einen Vorschlag?

[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Gruß
Rolf

Hallo Rolf,

entscheide Dich erst einmal für eine Variante der Page-Anwahl. Momentan widersprechen sich die beiden nämlich auch noch! Wink

Ob das ComboBox-Problem damit zu tun hat, kann ich jedoch aus der Ferne nicht sagen.

Gruß Uwe

Barss

snb

Barss

Kuwer

Barss

Kuwer