AW: Kursorblinken
16.07.2004 22:01:16
Konni
Hallo Andreas,
vielen Dank, dass Du mir hilfst. - Bei Deiner letzten Variante kam die gleiche Fehlermeldung. Da fehlt glaube ich ein "End If", weiß nicht genau.
Ich sende Dir nun den Code, basierend auf Deinen Anregungen, bei dem es zwar keine Fehlermeldung gibt, aber die Uhr nicht läuft. - Woran kann dies nun wieder liegen.
Zuhause benutze in WinXP prof auf D.\ und Win98 SE auf C:\ (wegen Toolbox Drucker).
Schau Dir den Code mal an:
Option Explicit
Public ET As Variant
Public DaZeit As Date
Private Declare
Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub Zeitmakro()
With ThisWorkbook.Worksheets("Submissionen 1-50").Range("A11")
.Value = .Value - CDate("00:00:05")
If .Value <> 0 Then
ET = Now + TimeValue("00:00:05")
If .Value = TimeValue("00:00:40") Then
Call sndPlaySound32("D:\Windows\media\ringin.wav", 1)
Application.OnTime ET, "Zeitmakro"
End If
Else
ThisWorkbook.Close True 'speichern
' Meldung bei Excel immer in Vordergrund
' Dim mldg
' mldg = MsgBox("Endzeit erreicht", 1048576, "Endzeit")
' 1048576 entspricht vbMsgBoxRtlReading
End If
End With
End Sub
Sub MacrosON()
'Dieses Macro ausführen wenn der Code zwischen
'Application.EnableEvents = False und
'Application.EnableEvents = True
'angehalten wurde oder abstürzt
Application.EnableEvents = True
End Sub
Danke für die Ausdauer. Ich bin 55 J. und mit meinen Nerven steht es in diesem Fall nicht zum Besten. - Die Jugend in unserem Büro hat mit EDV nichts am Hut, reine Anwender, nach dem Motto: Konni macht das schon. - VBA werde ich mir vermutlich nicht mehr aneignen, daher bin ich froh, dass es so nette Leute wie Euch gibt, die den Unterbelichteten unter die Arme greifen.
Nochmals Danke und bin gespannt, wo dieser kleine Fehler diesmal liegt: Konni