Macro's weigeren dienst

[Lampie173]

Goedemorgen,

In mijn budgetbestand heb diverse macro's ingebouwd.
Waaronder die in het voorbeeldbestand.
In de 4e kolom vul ik een bedrag in en dan verschijnt (nu verscheen!) de huidige datum.
Totdat ik de datum per ongeluk weghaalde (terwijl er een bedrag in de bewuste rij stond) toen kreeg ik een foutmelding.
Deze heb ik schijnbaar verkeerd afgehandeld waardoor nu alle macro's het niet meer doen!

In de eigenschappen van het originele bestand niets geks aangetroffen;
Best als xlsm opgeslagen niets helpt
In vertrouwenscentrum gekeken en daar staan de nodige opties aangevinkt
In voorbeeld doet de macro het ook niet, ik heb wat bedragen ingevuld.

Iemand een idee wat het zou kunnen zijn?

 

[edmoor]

Voer dit eens uit in het Direct venster en sla het document op:

Application.EnableEvents = True

Probeer het nu nog eens.
De opdracht Application.EnableEvents = False is in deze macro niet nodig.
Haal beide Application.EnableEvents opdrachten weg.

Dit is voldoende:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 And Target.Row > 1 Then
        If IsNumeric(Target.Value) And Target.Value <> "" Then
            Target.Offset(0, -2).Value = Date
        Else
            Target.Offset(0, -2).ClearContents
        End If
    End If
End Sub

 

[Lampie173]

Gewijzigd zoals aangegeven , maar (nog) geen resultaat.
Mis ik iets? Waar kijk ik overheen?

 

[edmoor]

Heb je de opdracht in het Direct venster ook uitgevoerd?
Ik gok van niet.