Archief - [excel] 'laatst gewijzigd' cel invoegen per rij

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

-BVR-

Legacy Member
Weet er iemand of je dit kan invoegen?

Ik heb een ledenlijst waarin alle leden staan. Elk lid is een rij en bestaat uit kolommen als 'geboortejaar', 'voornaam', 'achternaam' etc. Nu zou ik als laatste kolom een cel willen hebben met 'laatst gewijzigd', die automatisch verandert naar de dag dat er iets in de rij aangepast werd. Is dat mogelijk?

EDIT: ik weet ook niet hoe je code kan toevoegen aan een cel, dus als iemand dat kan uitleggen mag dat ook. Also, sommige cellen zijn niet meer bijgewerkt sinds 2008. Als ik dit dan vervang door een code, hoe kan ik dit dan terugzetten naar 2008?

mvg

[HoD]

Legacy Member
Ik heb ooit deze macro met success aangepast in een eigen Excel sheet:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngChange As Range, isect As Range
Dim r as Integer

If Target.Columns.Count = 256 Then Exit Sub

Application.EnableEvents = False

LastRow = Range("C" & Rows.Count).End(xlUp).Row
Set rngChange = Range("C3:C" & LastRow)
Set isect = Intersect(Target, rngChange)

If Not isect Is Nothing Then
For RowNo = Target.Row To Target.Row + Target.Rows.Count - 1
Set Target = Cells(isect.Row + r, isect.Column)
If Target = "" Then
Cells(Target.Row, 4) = ""
Else
Cells(Target.Row, 4) = Date
End If
r = r + 1
Next
End If

Application.EnableEvents = True

End Sub

( gekopieerd van: [SOLVED] automatic date stamp if a cell value changes - Excel Help Forum )

-BVR-

Legacy Member
Kan iemand me uitleggen hoe je een macro gebruikt en toepast? :$ Heb het gegoogeld maar vind het niet :(

(+rep'd btw)

[HoD]

Legacy Member
Hangt van de versie af. Excel 2010:

"To enable the Developer tab

On the File tab, choose Options to open the Excel Options dialog box.

Click Customize Ribbon on the left side of the dialog box.

Under Choose commands from on the left side of the dialog box, select Popular Commands.

Under Customize the ribbon on the right side of the dialog box, select Main tabs, and then select the Developer check box.

Click OK."

En dan in de Dev tabje de Visual Basic aanklikken en dan daar Insert->Module. In het blanco veld de code copy-pasten.

-BVR-

Legacy Member
OK, heb het opgeslagen als .xlsm met de module, maar eh.. wat doe ik nu? M.a.w. hoe call ik die module in m'n cel? (Sorry, ik ben een webdeveloper, geen desktopprogrammer en ik weet helemaal niks van Excel :( )
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan