Laufzeitfehler 13 - Typen unverträglich

Sub Jahreswechsel_04_05()
In Modul 2 und danach '

Sub Timer_an() in Modul 1 ausführe!
Hab schon alles probiert! Ohne gutes VBA-Wissen ist das aber nicht viel!
In Modul 1:

Sub Timer_an()
[Timer!c1] = 1
Application.Run "zeit"
[B6] = "=NOW()"
[B7] = "=NOW()"
Beep
MsgBox "Der Countdown wurde aktiviert.", vbInformation, "Countdown-Timer"
End Sub



Sub Timer_aus()
[Timer!c1] = 0
Beep
MsgBox "Der Countdown wurde deaktiviert.", vbInformation, "Countdown-Timer"
End Sub





Sub zeit()
If [Timer!c1] = 1 Then c = True Else c = False
Worksheets("Timer").[a1].Value = Now
If c = True Then Application.OnTime Now + TimeValue("00:00:01"), "zeit" Else
Application.Run "abgelaufen"
End Sub



Sub abgelaufen()
If [Timer!g11] - Now = 0 Then d = True Else d = False
If d = True Then MsgBox "Zeit abgelaufen! Der Timer wird deaktiviert!", vbInformation, "Der Countdown ist beendet..."
If d = True Then [Timer!c1] = 0
End Sub




In Modul 2:


Sub Laufzeit_1_Minute()
[G11] = Now() + 1 / 24 / 60
End Sub



Sub Laufzeit_2_Minuten()
[G11] = Now() + 2 * 1 / 24 / 60
End Sub



Sub Laufzeit_5_Minuten()
[G11] = Now() + 5 * 1 / 24 / 60
End Sub



Sub Laufzeit_10_Minuten()
[G11] = Now() + 10 * 1 / 24 / 60
End Sub



Sub Laufzeit_15_Minuten()
[G11] = Now() + 15 * 1 / 24 / 60
End Sub



Sub Laufzeit_30_Minuten()
[G11] = Now() + 30 * 1 / 24 / 60
End Sub



Sub Laufzeit_45_Minuten()
[G11] = Now() + 45 * 1 / 24 / 60
End Sub



Sub Laufzeit_1_Stunde()
[G11] = Now() + 1 / 24
End Sub



Sub Laufzeit_2_Stunden()
[G11] = Now() + 2 * 1 / 24
End Sub



Sub Jahreswechsel_04_05()
[G11] = "01.01.05  00:00:00"
End Sub


Ich hoffe irgendjemand kann mir helfen