AW: MultiPage.Value ändern durch MsgBox
27.08.2007 14:09:01
Thomas
Hallo Nepumuk,
vielen Dank für die Nachfrage, also ausführlich:
UserForm wird gestartet und initialisiert. Dabei wird die Multipage auf Seite 1 also Value 0 gesetzt.
Sub UserForm_Initialize()
MultiPage1.Value = 0
Erster_Aufruf = True
End Sub
was untenstehendes Change-Ereignis aufruft, in welchem u.A. kontrolliert wird, wie alt die Datensicherung ist.
Sub MultiPage1_Change()
If ((Erster_Aufruf = True) And (Cells(12, 5) > 30)) Then
Call Warnung_Datensicherung_Ersatzrecher
End If
End Sub
Wenn die Bedingung erfüllt ist wird schließlich die MsgBox mir der Frage aufgerufen
Sub Warnung_Datensicherung_Ersatzrecher()
Dim Mldg As String
Erster_Aufruf = False
Mldg = MsgBox("Die letzte Daten-Sicherung auf " & _
"einen " & vbCrLf & "Ersatzrechner liegt " & _
Cells(13, 5) & " Tage zurück!" & _
vbCrLf & vbCrLf & _
"Soll das Menue 'Datensicherung'" & vbCrLf & _
"jetzt sofort aufgerufen werden?" & vbCrLf, _
vbYesNo + vbExclamation, _
" Die Daten-Sicherung ist überfällig!")
If Mldg = vbYes Then
Me.MultiPage1.Value = 11
End If
End Sub
Wird diese Frage bejat, ist der Value auf 11 und der Reiter der Page ist markiert, aber es bleibt die alte Seite erhalten, es wird also nicht wirklich umgeblättert.
Um dies nachträglich zu ereichen, muß ich von der gewählten Multipage eine andere anklicken und dann wieder zurück, dann ist sie vollständig.
Gruß Thomas