Multipage-Seitenwechsel -> Seite plötzlich leer
21.07.2016 13:50:22
Hendrik
ich habe ein Userform, dass sich in Abhängigkeit eines Sachverhaltes leicht ändern soll. Es sind beispielsweise ein paar Textboxen mehr oder weniger oder noch Checkboxen da. Ich löse das Problem durch eine Multipage mit fünf Seiten. Es wird immer eine angezeigt und die anderen mit .visible=false ausgeblendet. Klappt eigentlich. Wenn ich meinen Code jedoch aufgrund Änderung des Sachverhaltes ein weiteres mal durchlaufe, funktioniert der Wechsel der Page zwar noch, aber sie ist leer! Sämtliche Steuerelemente auf der Seite sind nicht mehr zu sehen. Wie kann das sein?
Private Sub wechselTab(strRegelId As String)
With MultiPage1
If strRegelId "" Then
Select Case Left(strRegelId, 1)
Case "W"
.Pages("pgWertebereich").Visible = True
.Pages("pgVergleich").Visible = False
.Pages("pgReferenz").Visible = False
.Pages("pgEntwicklung").Visible = False
.Pages("pgLeer").Visible = False
.Pages("pgWertebereich").Caption = strRegelId
Case "V"
.Pages("pgWertebereich").Visible = False
.Pages("pgVergleich").Visible = True
.Pages("pgReferenz").Visible = False
.Pages("pgEntwicklung").Visible = False
.Pages("pgLeer").Visible = False
.Pages("pgVergleich").Caption = strRegelId
Case "R"
.Pages("pgWertebereich").Visible = False
.Pages("pgVergleich").Visible = False
.Pages("pgReferenz").Visible = True
.Pages("pgEntwicklung").Visible = False
.Pages("pgLeer").Visible = False
.Pages("pgReferenz").Caption = strRegelId
Case "E"
.Pages("pgWertebereich").Visible = False
.Pages("pgVergleich").Visible = False
.Pages("pgReferenz").Visible = False
.Pages("pgEntwicklung").Visible = True
.Pages("pgLeer").Visible = False
.Pages("pgEntwicklung").Caption = strRegelId
End Select
Else
.Pages("pgWertebereich").Visible = False
.Pages("pgVergleich").Visible = False
.Pages("pgReferenz").Visible = False
.Pages("pgEntwicklung").Visible = False
.Pages("pgLeer").Visible = True
End If
End With
End Sub