Excel VBA datum

[Robert971]

Hallo,

Het doel is om bij dubbelklik in een willekeurige cel van kolom 4 (in blad1 Excel)via onderstaande VBA code de datum te laten verschijnen 2 kolommen naar rechts (kolom 6).
Nu is het geval alleen dat als er een datum staat in een andere cel van kolom 6 deze mee verandert.
Dit is niet de bedoeling. Als dubbel wordt geklikt in een cel van kolom 4 dan moet alleen de datum van vandaag worden gezet op 2 plekken naar rechts van de aangeklikte locatie. Datums op andere
locaties in kolom 6 (die bijv. een paar dagen terug zijn neergezet door dubbelklik in kolom 4) moeten niet meeveranderen.
Zie het als een soort dubbelklikgeschiedenis per cel van kolom 4.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 On Error Resume Next 'skip all run-time errors


 If Target.Column = 4 Then

 If IsEmpty(Target.Value) Then Exit Sub

 If Application.IsText(Target) = True Or Application.IsNumeric(Target) Then

 Target.Offset(0, 2).Select
 ActiveCell.FormulaR1C1 = "=TODAY()"

 End If
 End If


 End Sub

Ik hoop dat iemand de oplossing weet, om dit te realiseren.

Bvd.
Robert

 

[Cobbe]

=TODAY()

geeft elke dag opnieuw de dan geldende datum omdat er inde cel deze formule gezet wordt.
Gebruik beter:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next  'skip all run-time errors
If Target.Column = 4 Then
If IsEmpty(Target.Value) Then Exit Sub
If Application.IsText(Target) = True Or Application.IsNumeric(Target) Then
Target.Offset(0, 2).Select
ActiveCell =Date 'eventueel met Format aanpassen
End If
End If
End Sub

 

[Robert971]

nvt

 

[Robert971]

Het werkt nu wel, gelukkig.

Dank voor je hulp!

 

[huijb]

@Robert971 Vraag hersteld, zou je dit soort rare acties achterwege willen laten. Je plaatst een vraag, krijgt antwoord en vervolgens verwijder je de vraag en in plaats daarvan zet je n.v.t. neer. Zoals gezegd niet meer doen.

 

[Robert971]

Huijb,
Een wat te snelle conclusie. Er was iets mis gegaan in de omgeving bij mijn computer waardoor ik op de verkeerde plek nvt heb neergezet. Mijn reactie na het bericht van Cobbe wilde ik verwijderen vanwege het feit dat deze niet meer van toepassing was omdat de oplossing van Cobbe in 2e instantie wel werkte. Dus alles met de beste bedoelingen..

Daarnaast heb ik misschien in het verleden wel is vaker nvt gezet, omdat de vraag te lang openstond en ik in de tussentijd de oplossing vond.
Ik begrijp dus dat het niet de bedoeling is om een vraag te verwijderen en om te zetten naar nvt, dit zal niet meer gebeuren in de toekomst.
Mijn idee is dit een misverstand dus misschien wel zo netjes als je even een correctie op je zojuist gestuurde bericht plaatst..

Groet
Robert971