title image


Smiley Re: VBA-Problem
Hallo Martin



hier meine Änderung, damit sollte es laufen:

Option Explicit

Public NextTime As Date, xCounter As Integer

Sub Piep()



Static counter As Integer



counter = counter + 1

xCounter = counter

NextTime = Now + TimeValue("00:01:00")

Beep

Call Msgbox_OnTime

If counter < 23 Then

Application.OnTime NextTime, "Piep"

Else

counter = 0

End If

End Sub



Sub StopClock()

''Beim Betätigen der nächsten Taste soll das ganze gestoppt werden.

On Error Resume Next

Application.OnTime earliesttime:=NextTime, Procedure:="Piep", Schedule:=False

On Error GoTo 0

Application.StatusBar = False

End Sub



Sub Msgbox_OnTime()

Dim WshShell

Dim intMSG As Integer



If xCounter 1 Then

Set WshShell = CreateObject("WScript.Shell")

intMSG = WshShell.Popup("Bitte denk dran!!!", 2, "Erinnerung", 64)

End If

End Sub





Gruß von Luschi

aus klein-Paris

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: