Private Sub Ruhetimer_Timer()
Dim dheute As String
'Überprüfen ob der PC aus dem Ruhezustand geweckt wurde...
If ruhedatum <> "kein" Then
    dheute = Date
    If ruhedatum <> dheute Then
        'PC kommt aus dem Ruhezustand, Timer stoppen und Code ausführen
        Ruhetimer.Enabled = False
        .........
        ........
    End If
End If
End Sub