Gerd wo bist du, brauche nochmal deine Hilfe
23.09.2003 11:11:10
Scotty
weiß nicht warum aber dein Code (war das Ausblenden der Multipageseite) funktioniert nicht mehr. Das ausblenden haut nicht hin und bei der Fehlersuche kommt die Meldung "Variable nicht deklariert" und es wird in der Zeile If Multipage1.Value = 3 Then "Multipage1" unterstrichen. Dein Code war:
Option Explicit
Private Sub MultiPage1_MouseDown(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
''Rechtsklick auf Seite 4 blendet die wieder aus
If MultiPage1.Value = 3 Then
If Button = 2 Then
MultiPage1.Pages(3).Visible = False
End If
End If
End Sub
Private Sub UserForm_Initialize()
''Angenommen MultiPage1 hat 4 Seiten(pages)
''Die pages beginnen bei 0, nicht bei 1!!!
''4. Blatt ausblenden
MultiPage1.Pages(3).Visible = False
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
''Button = 2 bedeutet rechte Maustaste
''Shift = 6 bedeutet Strg+Alt gedrückt
''Insgesamt also Kombination Strg+Alt+Rechtsklick
''Blatt 4 wird eingeblendet
If Button = 2 And Shift = 6 Then
MultiPage1.Pages(3).Visible = True
MultiPage1.Value = 3
End If
End Sub