OnTime "Fehler"
16.08.2003 08:12:11
Horst T.
Ich habe bei denn folgenden Code ein Problem!
Sub Start_Timer()
Application.OnTime Now + TimeValue("00:00:10"), "Stunden_Makro"
End Sub
Sub Stunden_Makro()
Dim c As Range
For Each c In [a1:a20]
If c = WorksheetFunction.Max([a1:a20]) Then
MsgBox c.Address(0, 0) & " " & c.Value
End If
Next
Start_Timer
End Sub
Beim start des Makro, wird fogende Meldung ausgegeben:
" Microsoft Excel kann das Makro 'Mappe1!Stunden_Makro' nichtt finden.
Was mache ich falsch?
gruß Horst