tijdvermelden door dubbelklik

Status
Niet open voor verdere reacties.
J

jan excel

Gebruiker
Lid geworden
4 mrt 2007
Berichten
437
Hallo Experts,

In excel wil ik door dubbelklik in een range van kolommen A en B de actuele tijd vermelden vermelden.
Welke VBA code nodig.

Zelf deze code geprobeerd echter werkt niet.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

ActiveCell.FormulaR1C = Format(Now(), "hh:mm")
Cancel = True
End Sub



Alvast bedankt.
Jan E
 
Zoiets:
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Or Target.Column = 2 Then
        Target.Value = Time()
    End If
End Sub
 
Wil je het als waarde of als formule?

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column < 3 Then
    Target = Format(Now, "hh:mm")
    'Target = "=TEXT(NOW(),""uu:mm"")"
    Cancel = True
  End If
End Sub
 
Edmoor en V&A,

Bedankt voor jullie code.
De code van V&A is voor mijn project het meest geschikt.

groet,
Jan E
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan