Ich habe in folgendem Makro eine Fehlermeldung! Die Uhr startet aber sobald ich das Tabellenblatt wechsle kommt Laufzeitfehler 13 unverträgliche Typen.
In dieser Zeile liegt mein Problem :
Range("E1").Value = Now - Range("D1").Value
Sub Start()
'Time = Now + TimeValue("00:00:01")
Startzeit = Now 'Application.Run("gibZeit")
Range("D1,D3:D1000").ClearContents
' Range("D1:D" & Rows.Count).ClearContents
Range("D1").Value = Startzeit
Range("D2").Select
' ActiveCell.FormulaR1C1 = "Zeit"
Range("C3").Select
Application.OnTime Now + TimeValue("00:00:01"), "uhr"
uhrlaeuft = True
With Application
.OnKey "Q", "zwischenzeit24112002" ' setzt Zuweisung
.OnKey "q", "zwischenzeit24112002"
End With
Beep
End Sub
Sub Stopp()
On Error Resume Next
uhrlaeuft = False
Application.OnTime Time, "Start", , False
With Application
.OnKey "Q"
.OnKey "q"
End With
Beep
End Sub
Sub zwischenzeit24112002()
Dim iRow As Integer
iRow = Cells(Rows.Count, 4).End(xlUp).Row + 1
If iRow < 3 Then iRow = 3
Cells(iRow, 4) = Application.Run("gibZeit", Range("D1"))
'Now - Range("D1").Value + Application.Run("gibZeit", Range("D1"))
Beep
End Sub
Public Sub uhr()
' hier ist die Fehlermeldung
Range("E1").Value = Now - Range("D1").Value
If uhrlaeuft Then
Application.OnTime Now + TimeValue("00:00:01"), "uhr"
End If
End Sub
Vielleicht kan mir jemand helfen?
Vielen Dank für eure Hilfe!
Tschüß
rolf