Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Multipage Seite nur per Makro wechseln | Herbers Excel-Forum


Betrifft: Multipage Seite nur per Makro wechseln von: Lisa
Geschrieben am: 02.01.2012 15:00:15

Hallo und ein frohes und erfolgreiches neues Jahr zusammen!
Eine Frage schon gleich im neuen Jahr an Euch Experten, ich hänge mich gerade an einer Multipage auf!

Ich habe eine UF mit einer MP und derer 4 Seiten!

Ich möchte die einzelnen Seiten nur per Button, also so:

Private Sub CommandButton1_Click()
MultiPage1.Value = 1
End Sub

welcher sich auf jeder Seite befindet, wechseln können!

Also wenn auf den Reiter geklickt wird darf die jeweilige Seite nicht aktiviert werden!

In der Recherche kann ich nach meinen Vorstellungen nichts finden. Hat hierzu jemand eine Idee?

lG Lisa

  

Betrifft: AW: Multipage Seite nur per Makro wechseln von: Luschi
Geschrieben am: 02.01.2012 15:12:46

Hallo Lisa,

probier es mal so:

Private Sub UserForm_Activate()
    Dim i As Integer
    
    With Me.MultiPage1
        For i = 0 To .Pages.Count - 1
            'unsichtbar
            .Pages(i).Visible = False
            'oder nur deaktivieren
            '.Pages(i).Enabled = False
        Next i
    End With
End Sub
Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Multipage Seite nur per Makro wechseln von: Lisa
Geschrieben am: 02.01.2012 15:31:35

Hallo zusammen, hallo Luschi, danke für die schnelle Antwort ich denke es ist doch umfangreicher bei einer Multipage das Wechseln der Seiten durch klick auf den Reiter zu unterbinden.

Die Reiter oder Seiten können auch mit den Pfeiltasten rechts, links oder der Tab Taste gewechselt werden.
Das alles zu unterbinden, bin ich nun doch in meiner Recherche fündig geworden.

Private lngAktuelleSeite As Long

Private Sub MultiPage1_KeyDown( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
lngAktuelleSeite = MultiPage1.Value
End Sub

Private Sub MultiPage1_KeyUp( _
ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If lngAktuelleSeite <> MultiPage1.Value Then Wechselüberprüfung
End Sub

Private Sub MultiPage1_MouseDown(ByVal Index As Long, _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
IngAktuelleSeite = MultiPage1.Value
End Sub

Private Sub MultiPage1_MouseUp(ByVal Index As Long, _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
If lngAktuelleSeite <> MultiPage1.Value Then Wechselüberprüfung
End Sub

Private Sub Wechselüberprüfung()
Select Case lngAktuelleSeite
Case 0
' If Bedingung0NichtErfüllt Then
If MsgBox("Wechseln?", vbYesNo, "Seite") = vbNo Then _
MultiPage1.Value = lngAktuelleSeite
Case 1
' If Bedingung1NichtErfüllt Then
If MsgBox("Wechseln?", vbYesNo, "Seite") = vbNo Then _
MultiPage1.Value = lngAktuelleSeite
End Select
End Sub
hiermit also wäre der Wechsel mit einer Abfrage, wahlweise auch ohne Abfrage, unterbunden!

Für alle die es interessiert, also der Code dazu!
Das kurze aktivieren der jeweiligen Seite also das aufblinken muss man wohl in kauf nehmen!

LG Lisa


Beiträge aus den Excel-Beispielen zum Thema "Multipage Seite nur per Makro wechseln"