Microsoft Excel

Herbers Excel/VBA-Archiv

msgbox nach bestimmter Zeit einblenden



Thema: msgbox nach bestimmter Zeit einblenden

Betrifft: msgbox nach bestimmter Zeit einblenden
von: Michael
Geschrieben am: 26.09.2002 - 13:37:03

Hallo Excel User,

ich möchte nach einer bestimmten Zeit eine Msgbox einblenden, in der nachgefragt wird, ob das aktive Tabellenblatt abgespeichert werden soll. Diese Msgbox soll dann in regelmäßigen Abständen wieder eingeblendet werden.

Habt Ihr dafür vielleicht eine Lösung ?

Vielen Dank im Voraus


  

Re: msgbox nach bestimmter Zeit einblenden
von: axel.meyer
Geschrieben am: 26.09.2002 - 13:46:09

hi michael,

versuche es mal damit:


Sub Bsp()
Dim Antwort, i
For i = 1 To 10
Application.Wait Now TimeSerial(1, 0, 0)
Antwort = MsgBox("Ja oder nein?", vbYesNo + vbQuestion, "Frage")
If Antwort = vbYes Then
    ActiveWorkbook.Save
End If
Next i
End Sub

im timeserial ist jetzt eine h eingetragen, das kannst du ändern. die zahlen stehen in dieser reihenfolge: timeserial(h,min,sek)

gruß, axel

  

Geht nicht...
von: Ramses
Geschrieben am: 26.09.2002 - 13:53:58

Hallo Axel,

Mit Application.Wait blockierst du die ganze Anwendung bis zum Ablauf deiner Zeit.
Wenn dann müsstest du diese Anweisung verwenden:



'In das Klassenmodul "Diese Arbeitsmappe"
Private Sub Workbook_Open()
Start_Timer
End Sub

'In ein eigenes Modul
Sub Start_Timer()
Application.OnTime Now TimeValue("00:30:00"), "Ask_Save"
End Sub

Sub Ask_Save()
Dim Qe
Qe = MsgBox("Möchten Sie die Datei speichern?", vbQuestion + vbYesNo, "Speicherung")
If Qe = vbNo Then
    Exit Sub
End If
ActiveWorkbook.Save
Start_Timer
End Sub

Gruss Rainer


  

dazugelernt, danke! (oT)
von: axel.meyer
Geschrieben am: 26.09.2002 - 19:29:48