• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro voor invullen huidige datum/tijd bij aanraken cel

Status
Niet open voor verdere reacties.

verhoog

Terugkerende gebruiker
Lid geworden
7 nov 2001
Berichten
3.143
Ik ben op zoek naar een macro die binnen een bepaald bereik, bijv kolom A, de datum en tijd invult (dd-mm-jjjj uu:mm) van het moment dat de cel geraakt wordt via muis of tab. Kan dat?
 
Dit kun je doen met een event macro (gebeurtenis) macro.

De volgende (mini)macro werkt voor kolom A.
De 1 kan je aanpassen voor de gewenste kolom.
Met celopmaak bepaal je hoe de datum er uit ziet.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column = 1 Then ActiveCell.Value = Now()
End Sub

mvg leo
 
Dank je. Maar ik doe iets verkeerd, want hij werkt niet.

Ik ga naar de VB-editor via het Macro menu, rechtsklik op de betreffende sheet, kies voor Insert Module, plak jouw code erin, verander de 1 in 13 (voor kolom M) en sluit af. En vervolgens doet ie niets.... :confused:
 
Ah, dat is m. Thx Wigi.

Nog een vraagje: stel dat ik deze macro voor alle sheets in het bestand beschikbaar wil maken, waar plaats ik m dan?
 
Laatst bewerkt:
Ja, ik had het inmiddels gevonden. Bijna weekend denk ik :o
 
vervolgvraag

Als je nu op een cel dubbelklikt, plaatst hij de datum.

Kan iemand mij aangeven wat ik moet doen als ik niet alleen de datum, maar bijvoorbeeld de tekst "uitgevoerd door XXX op datum", waarbij XXX de inhoud is van cel a1 op dit sheet?
En als ik in plaats van datum + tijd alleen de datum wil zien?
 
Laatst bewerkt:
Met
Code:
strings.format(now, "dd-mm-yy")
kun je de datum aanpassen en tot string omzetten.
Deze kun je combineren met de tekst uit de door jou gewenst cel.

b.v.
Code:
sTemp =  "uitgevoerd door: " &  Cells(1,1).Value " op datum: " & Strings.Format(NOW, "dd-mm-yy") & "_ " &

De cel inhoud moet wel tekst zijn, anders krijg je een foutmelding.
 
Laatst bewerkt:
Bedankt!

Het werkt! Volgens mij doet hij het ook als er in cel A1 geen waarde maar een formule staat. Top
:D:thumb:Bedankt.
 
Klopt dat er ook en formule mag staan, wanneer de uitkomst maar tekst is.
Succes met het verder werken:)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan