Zeit immer um 5 minuten aufrunden mit VBA

[snb]

Schau mal:

[Niko]

Hi nochmal,

sry fürs dauernde nachfragen aber der Code funktioniert nicht.

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveWorkbook.ActiveSheet.Unprotect ("1234")

If Not Intersect(Target, Range("C6:D36, G6:H36, K6:L36, R6:S36")) Is Nothing Then
        Frac = 1440 / (1 - 4 * ([A1] = "Woche") - 29 * ([A1] = "Monat"))
        Target = IIf(Target = "", -Int(-Time * Frac) / Frac, "")
        Cancel = True
    End If
ActiveWorkbook.ActiveSheet.Protect ("1234")
End Sub

Zeigt fehler bei Kompilieren und "FRAC =" wird Blau.

Wo kann der Fehler liegen?

Danke,
Niko

[LCohen]

1. Du hast Option Explicit. Dann Dim Frac
2. Frac könnte ein Systemwort sein. Dann Flick.

[Niko]

Danke dir für deine Zeit und Mühe, aber der Code funktioniert nicht, tut sich nichts.
Brauche den Code für .xlsm datei.


Danke trozdem,
Niko :78:

[LCohen]

Ich habe Deinen Code nicht vorher ausprobiert, an welchem ich dann geändert hatte.

Jetzt stelle ich fest, dass die (288) bei mir auch schon nicht läuft.

[Niko]

Alles Gut,
Option Explicit hatte ich schon...aber hatte Dim Frac noch nicht hinzugefügt...hatte es nicht bemerkt...anfänger fehler :16: .

mit Dim und

Code:

Target = IIf(Target = "", -Int(-Time * Frac) / Frac, "")

Funktionierte es Bestens  :18:


Danke nochmals :78:



Niko