Laatste update timestamp

Status
Niet open voor verdere reacties.
M

monty1a

Gebruiker
Lid geworden
29 dec 2006
Berichten
202
Hallo,

Ik heb op internet de volgende code gevonden:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereik As Range
Dim controleer As Range

With ActiveWorkbook.Sheets(1)

    Set bereik = .Range("B3:L1103")
    Set controleer = Intersect(bereik, Target)
    
    If Not controleer Is Nothing Then
        .Range("X1") = "Laatste wijziging op"
        .Range("X2") = DateValue(Now)
        .Range("X3") = "om"
        .Range("X4") = TimeValue(Now)
    End If

End With

End Sub

Alleen er word dmv een macro variërend van 1 tabblad (K (1)) t/m (K (200)) aangemaakt.
Hoe kan ik bovenstaande code oid passend maken voor mijn bestand?
 
Geen idee wat je precies bedoelt, maar voor het vullen van die gegevens is dit voldoende in de ThisWorkbook sectie:
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Range("B3:L1103"), Target) Is Nothing Then
        Range("X1") = "Laatste wijziging op"
        Range("X2") = Date
        Range("X3") = "om"
        Range("X4") = Time()
    End If
End Sub

Zo werkt het voor ieder werkblad.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan