Ik heb in VB Excel de volgende code die goed werkt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$18" And Target.Value = 0 Then
a = MsgBox("Berichttekst", vbOKOnly, "Naam")
Sheets("Kosten").Range("E19").Value = 0
End If
De bedoeling is dat wanneer iemand 0 invult hij een waarschuwing krijgt en er in een andere sheet iets op 0 gezet wordt. Nogmaals, de code werkt, echter wanneer er eenmaal een waarde in de cel $E$18 staat en men zet die waarde op 0 door de bestaande waarde weg te halen met behulp van de Delete-toets, dan krijg ik een error. Hoe kan ik er voor zorgen dat het indrukken van de Del-toets ook geod wordt afgehandeld?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$18" And Target.Value = 0 Then
a = MsgBox("Berichttekst", vbOKOnly, "Naam")
Sheets("Kosten").Range("E19").Value = 0
End If
De bedoeling is dat wanneer iemand 0 invult hij een waarschuwing krijgt en er in een andere sheet iets op 0 gezet wordt. Nogmaals, de code werkt, echter wanneer er eenmaal een waarde in de cel $E$18 staat en men zet die waarde op 0 door de bestaande waarde weg te halen met behulp van de Delete-toets, dan krijg ik een error. Hoe kan ik er voor zorgen dat het indrukken van de Del-toets ook geod wordt afgehandeld?
Laatst bewerkt: