Ich habe eine Multipage1 mit Page1, Page2 und Page3.
Auf der Page3 sind TextBox1 und TextBox2. Wenn Page3 durch Klick auf 1 oder 2 verlassen werden sollen, soll dies verhindert werden, wenn TextBox1 und Textbox2 nicht identisch sind. Das Click-Ereignis des Multipage-Objektes wertet den Wechsel aus:
Private Sub MultiPage1_Change()
If TextBox1.Text <> TextBox2.Text Then
UserForm1.MultiPage1.Value = 2 '(Page3)
End If
Wenn zur Laufzeit per Mausklick von Page3 auf Page2 gewechselt wird, und TextBox1 und 2 verschieden sind, sollte dieser Wechsel verhindert werden und weiter Page3 aktiviert sein. Es passiert jedoch folgendes: Der Reiter der Page3 (was ja richtig ist), jedoch der Inhalt der mit der Maus gewählten Page wird angezeigt. Kann es sich um einen Bug von Excel handeln? Der Fehler tritt bei der Verwendung von Excel 2003 auf. Habe den axakt gleichen Code mit Excel 2002 getestet. Funktioniert absolut korrekt.
Wer kann mir helfen?
Gruß fanta-f
|