Datum laatste wijziging A1 weergeven in B1

[jok078]

Graag wens in in een cel de datum (tijdstip) weergeven waarin de laatste wijziging is aangepast "=nu()"
Er lijkt al zoveel over geschreven, echter nog niet echt wat ik zoek...
Om het begrijpbaar weer te geven een woodje uitleg...

In kolom A heb ik een kolom met gegevens... (kan vanalles zijn...)
In kolom B heb ik een kolom met datums of tijdstippen. Wel Deze kolom bevat de tijdstippen waarop de gegevens in kolom A gewijzigd zijn...

Je snapt 't wel

Vast danks, weet niet goed of het zonder code opgelost kan worden. Echter met code lijkt me het een uitdaging gezien ik er niet zo in thuis ben...

 

[zapatr]

Heb je de zoekfunctie van deze website al gebruikt?
Je vindt dan nl. verschillende voorbeelden van wat je wil.
Zoek nog maar eens met als zoekwoord timestamp bijvoorbeeld.

 

[gast0660]

Hoi,
Zoiets?
Als je verder uitleg nodig hebt help ik u graag verder

 

[skystormer]

Bekijk bijlage datumaanpassen.xlsm

Of zoiets?
Heb er nog een toevoeging in gedaan, welke ik zelf handig vind in mijn bestanden.
Namelijk de naam van de persoon welke de aanpassing gedaan heeft. (gevonden op computernaam) Handig als meerdere mensen in een bestand werken.

 

[jok078]

Ind. dat is precies wat ik zoek - lol...

Hoe doe jij dat??? Wéllicht zit hier code achter... Wanneer ik in de celeigenschappen kijk zie ik niets meer dan een getal, ik wordt 'r helemaal creapy van - lol
Waar vind ik wat ik zoek...?

Leuk dit forum gevonden te hebben

 

[jok078]

Zalig! Is echt wat ik zocht... verder doorslepen naar verdere cellen is ook mogelijk

Heb intussen de code gevonden, nu nog een kwestie het in mijn exelbestand integereren..., hoop lukt dat ook!

Thanks!

 

[Warme bakkertje]

Wil je elke wijziging vastleggen (inclusief leegmaken cel) volstaat deze.

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    If Not Intersect(Columns(1), Target) Is Nothing Then
        With Target.Offset(, 1)
            .Value = Now
            .NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        End With
     End If
    Application.EnableEvents = True

End Sub

 

[skystormer]

Welke voorbeeld gebruik je?
Want alle voorbeelden werken met Visual Basic.

Dus als je A1 doortrekt naar beneden, kopieer je geen formules of iets dergelijks.
Bij allen is het terug te vinden door op ALT-F11 te drukken.

Dit geeft een code welke je geheel kan kopieren en kan plakken in jou document. Mits het nog steeds gaat in je eigen bestand om een aanpassing in kolom A, en de datum/tijd in kolom B moet staan.

 

[jok078]

@ dotchijack...

Heb de code bekeken en echt... ik wist niet dat ik zo dom was - lol. Het klinkt me erger dan chinees...
Je maakt me geen verwijzing naar de kolom of cel. Daar loopt het mis. In mijn geval (hrmm?) staan de datums in kolom D de cellen met een getal erin staan op kolom K...

Ik lijk echt een leek :shocked:

Nog even verdere berichten bekijken...

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
    If .Column <> 11 Then Exit Sub
    Application.EnableEvents = False
    If .Count = 1 Then .Offset(, -7) = Now
    Application.EnableEvents = True
End With

End Sub

 

[skystormer]

Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)
xOffsetColumn = 1

Is wat je nodig hebt om het op een andere locatie te zetten.

Vervang A:A met de kolom waar de aanpassing in gemaakt kan
xOffsetColumn = 1 bepaalt welke kolom de tijd komt te staan. staat hier 2, dan wordt 2 kolommen verder de tijd geplaatst. Staat hier -1 dan wordt de aanpassingstijd een kolom voor je kolom gezet.

 

[snb]

En waarvoor wil je dit gebruiken ?

 

[gast0660]

Hoi Jok,
Was er effen niet maar warm bakkertje en skystormer hebben al de voorzetjes gegeven
greetz

 

[jok078]

Jep, danks...

Morrr... ik lijk toch nog niet goed op weg... Er beweegt niets.
Denkelijk heb ik de code fout geplakt of behandelt hij deze niet.
Ter verduidelijking staat bij mij in kolom K het getal, in kolom D de datum - het getal verander ik dus door -7.
de code werd aangepast maar reageert niet...

Hoe kan ik bijv. nagaan of hij de code benandelt...?

 

[skystormer]

Normaal zou ik zeggen, dat hij op foutopsporing nog staat.
Sla je bestand op (Excel bestand met macro's)
en open het weer.
Pas een cel aan, bij een foutmelding zit er nog een fout in je code.
Controleer met het origineel en pas toe wat je geleerd hebt (hoop ik)



Lukt het niet, laat dan de code even zien, welke je toepast.

 

[jok078]

Het is reeds een document met heel wat gegevens, maco's ed. Dus reeds een xlsm.

Er is helemaal geen foutmelding...



Momenteel staat de code (gewoon) onder "Blad1", denkelijk zonder dat er een actie aan gekoppeld is. óóóf tenzij dat (vermoed ik) hij bij elke wijziging van Kolom k nagaat of hij iets kan doen...

 

[skystormer]

Voor te testen raad ik aan, pak de macro waarmee je wilt gaan werken, en kijk of je die aan de gang krijgt. (je sloopt je bestand misschien, maar gewoon niet opslaan)
Pas kolom A aan, en kijk of B aangepast wordt.
Pas code aan van "A:A" Naar "K:K"

xOffsetColumn = 1
Wordt dan :

xOffsetColumn = -7

Hiermee wordt de datum/tijd in kolom D geplaatst.

Dus wordt dan:

Set WorkRng = Intersect(Application.ActiveSheet.Range("K:K"), Target)
xOffsetColumn = -7

 

[gast0660]

Hoi,
Heb mijn vbtje evtjes aangepast
Kan je nu verder
greetz

 

[Warme bakkertje]

óóóf tenzij dat (vermoed ik) hij bij elke wijziging van Kolom k nagaat of hij iets MOET doen...

Dat is exact wat de macro doet EN wat je gevraagd had.
Draai onderstaande eens en wijzig dan eens iets in kolom K

sub tst()
Application.EnableEvents = True
end sub

EN gebruik deze code want die werkt GEGARANDEERD.

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
    If .Column <> 11 Then Exit Sub
    Application.EnableEvents = False
    If .Count = 1 Then .Offset(, -7) = Now
    Application.EnableEvents = True
End With

End Sub

Lukt dit alles dan nog niet dan raad ik je aan om eens een goed boek over VBA te raadplegen, want dit wordt een beetje te gek voor woorden.

 

[jok078]

Ik word er orendul van... Het lijkt niet te werken in mijn exeldocument, maar in een ander wat ik testte lukt het wel!!

Ik ga wat hier eerstboven geschreven staat 'ns testen. Maar ik begrijp het niet helemaal...
Wat doet het eerste deel van de code... Dien ik het er gewoon boven te plaatsen?

Er gebeurt... niets :evil: