Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA - UserForm mit Multipage in Tabelle einbinden
#1
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
Antworten Top
#2
Es fehlt etwas zu viel:

Diese code recht:

Code:
Private Sub Schaltfläche1_Klicken()
    UserForm1.Show
End Sub
Antworten Top
#3
mit dem Code kann ich leider nicht die gewünschte Multipage aufrufen :( und komme damit nicht weiter
Antworten Top
#4
Hallo Rolf,

das regelst Du in der Userform selbst:

Code:
Private Sub UserForm_Activate()
 Me.MultiPage1.Value = 0
End Sub

Gruß Uwe
Antworten Top
#5
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
Antworten Top
#6
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste