MultiPage.Value ändern durch MsgBox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Hallo Thomas,
da Problem ist, dass du den Seitenwechsel durch einen Seitenwechsel auslosen willst. Das geht nur, indem du Hajo's Tipp mit DoEvents benutzt. Beispiel:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Erster_Aufruf As Boolean

Private Sub UserForm_Activate()
    MultiPage1.Value = 0
    Erster_Aufruf = True
End Sub

Private Sub MultiPage1_Change()
    DoEvents
    If Erster_Aufruf Then Call Warnung_Datensicherung_Ersatzrecher
End Sub

Sub Warnung_Datensicherung_Ersatzrecher()
    Erster_Aufruf = False
    If MsgBox("Die letzte Daten-Sicherung auf " & _
        "einen " & vbLf & "Ersatzrechner liegt " & _
        Cells(13, 5) & " Tage zurück!" & vbLf & vbLf & _
        "Soll das Menue 'Datensicherung'" & vbLf & _
        "jetzt sofort aufgerufen werden?" & vbLf, _
        vbYesNo + vbExclamation, _
        " Die Daten-Sicherung ist überfällig!") = vbYes Then _
        UserForm1.MultiPage1.Value = 11
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

MultiPage.Value ändern durch MsgBox

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MultiPage.Value ändern durch MsgBox

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread