formule bij werken

[stroke19]

nu heb ik deze formule dankzij iemand van dit forum en werkt perfect
alleen ik moet het excel bestand vandaag af hebben
er moet nog een kleine aanpassimg aan gedaan worden maar het lukt niet deze is voor 1 cel maar ik wil hem dus voor meerdere cellen laten werken dus van G2 tot G20 en dan selectief
dus pas als ik het cel aan klik iemand een idee


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address > "$G$2" Then Exit Sub
Range("G2").Value = Format(Time(), "hh:mm:ss")
End Sub

 

[ExcelAmateur]

Heb je alweer bij je vorige vraag gekeken?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not (Intersect(Target, Range("G2:G20")) Is Nothing) Then
    Target.Value = Format(Time(), "hh:mm:ss")
  End If
End Sub