|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.11.2007 07:08:32 |
Stromberg |
|
|
 Aw:Meldung mit OK bestätigen??? |
24.11.2007 09:55:53 |
jh |
|
|
|
25.11.2007 07:41:13 |
Stromberg |
|
|
|
25.11.2007 11:30:27 |
jh |
|
|
|
25.11.2007 13:11:00 |
Stromberg |
|
|
|
25.11.2007 16:51:42 |
Stromberg |
|
|
|
25.11.2007 17:37:26 |
jh |
|
|
|
25.11.2007 18:17:40 |
Stromberg |
|
|
|
25.11.2007 18:49:19 |
jh |
|
|
|
25.11.2007 19:20:08 |
Stromberg |
|
|
|
25.11.2007 20:43:38 |
jh |
|
|
|
25.11.2007 20:54:17 |
Stromberg |
|
|
|
26.11.2007 08:33:28 |
jh |
|
|
|
26.11.2007 19:45:57 |
Stromberg |
|
|
|
27.11.2007 07:16:56 |
jh |
|
|
|
27.11.2007 19:06:29 |
Stromberg |
|
|
|
28.11.2007 08:44:56 |
jh |
|
|
|
10.12.2007 05:53:17 |
Stromberg |
|
|
|
25.11.2007 18:31:01 |
Stromberg |
|
|
Von:
jh |
Datum:
24.11.2007 09:55:53 |
Views:
694 |
Rating:
|
Antwort:
|
Thema:
Aw:Meldung mit OK bestätigen??? |
Hallo,
zum periodischen Anzeigen der Meldung kannst du die OnTime-Methode
verwenden. Den Vorgang kannst du zweckmäßigerweise gleich in der Sub
Workbook_Open initialisieren:
Application.OnTime EarliestTime:=Now + TimeSerial(0, 5, 0), _
Procedure:="PopUp", Schedule:=True
Die Prozedur PopUp muss in einem Modul stehen:
Public Sub PopUp()
UserForm1.Show
End Sub
Für das Meldungsfenster musst du eine Userform und keine einfache
MsgBox verwenden, damit du beim Anklicken des OK-Buttons Code
ausführen kannst. Die Form muss nur ein Label und einen CommandButton
enthalten, in die Caption-Eigenschaft des Labels schreibst du die
auszugebende Meldung, und für den Button folgenden Code:
Private Sub CommandButton1_Click()
Dim strMsg As String, strFileName As String, intFileNr As Integer
UserForm1.Hide
strMsg = "Benutzer " & Application.UserName & " bestätigt um " _
& Format(Time, "hh:mm:ss") & " Uhr."
strFileName = ThisWorkbook.Path & "\log.txt"
intFileNr = FreeFile
Open strFileName For Append Shared As #intFileNr
Print #intFileNr, strMsg
Close #intFileNr
Application.OnTime EarliestTime:=Now + TimeSerial(0, 5, 0), _
Procedure:="PopUp", Schedule:=True
End Sub
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.11.2007 07:08:32 |
Stromberg |
|
|
Aw:Meldung mit OK bestätigen??? |
24.11.2007 09:55:53 |
jh |
|
|
|
25.11.2007 07:41:13 |
Stromberg |
|
|
|
25.11.2007 11:30:27 |
jh |
|
|
|
25.11.2007 13:11:00 |
Stromberg |
|
|
|
25.11.2007 16:51:42 |
Stromberg |
|
|
|
25.11.2007 17:37:26 |
jh |
|
|
|
25.11.2007 18:17:40 |
Stromberg |
|
|
|
25.11.2007 18:49:19 |
jh |
|
|
|
25.11.2007 19:20:08 |
Stromberg |
|
|
|
25.11.2007 20:43:38 |
jh |
|
|
|
25.11.2007 20:54:17 |
Stromberg |
|
|
|
26.11.2007 08:33:28 |
jh |
|
|
|
26.11.2007 19:45:57 |
Stromberg |
|
|
|
27.11.2007 07:16:56 |
jh |
|
|
|
27.11.2007 19:06:29 |
Stromberg |
|
|
|
28.11.2007 08:44:56 |
jh |
|
|
|
10.12.2007 05:53:17 |
Stromberg |
|
|
|
25.11.2007 18:31:01 |
Stromberg |
|
|