harde datum waarde geeft foutmelding door vba programmacode

[jacobusm]

Beste lezers,

Ik wil in mijn excel sheet door een keuze te maken in kolom A van een bepaalde waarde (tekst) in kolom B een datum laten weergeven die niet meer aangepast wordt als je later het bestand weer opend. Hiervoor heb ik op dit forum een perfecte code gevonden, echter als je de gegevens wil delete of verplaatsen krijg ik een fout melding. Hoop dat hier een oplossing voor is.

Een en ander wordt misschien duidelijker als je het bestand bekijkt, zie bijlage.

 

[Mark xl]

Ik heb even in je code gekeken, en

Selection.ClearContents

afkomstig van 'datum ingeleverd.xls'!Macro1

is een worksheet_change event, en triggert dus de bijbehorende macro
Misschien dat je met die wetenschap een andere oplossing kan vinden.

 

[jacobusm]

Ik zelf kan niet een passende oplossing verzinnen daarvoor mij vraag op dit forum.
Wat ik wil is na keuze status (kolom A) een datum in kolom B die niet met de computerdatum (date, vandaag () of nu () ) meeloopt. Dus een harde datum die je daarna kan verwijderen en of overschrijven.

Ik hoop dat iemand mij daar een oplossing voor kan aandragen.

 

[Warme bakkertje]

Sub Macro1()
'
' Macro1 Macro
'

'
    Application.EnableEvents = False
    Range("A2:B13").ClearContents
    Range("D2:E13").Copy
    Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A14").Select
    Application.CutCopyMode = False
    Application.EnableEvents = True
End Sub