Worksheets_Change

[Wouter Bielderman]

Hoi allen,

 

Een poosje ben ik al aan het worstelen met het volgende:

 

Cel J20 kan de volgende tekst bevatten: groen, oranje, rood. Wanneer er een verandering op treed moet cel L20 veranderen naar 1.

 

Middels onderstaande code is dit gelukt:

 

Public oudeTekst As String

Private Sub Worksheet_Activate()
oudeTekst = Worksheets("Blad1").Cells(20, 10)

End Sub

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Blad1").Cells(20, 10) <> oudeTekst Then

oudeTekst = Worksheets("Blad1").Cells(20, 10)
Worksheets("Blad1").Cells(20, 12).Value = "1"

End If

End Sub

 

 

Nu heb ik het probleem dat wanneer vervolgens de waarde niet veranderd is (mijn werkblad ververst elke 1 minuut) Cel L20 op 1 blijft staan.

Wanneer de oudeTekst gelijk is aan de huidige tekst wil ik daar een waarde van 0 hebben.

 

 

[Wouter Bielderman]

Vervolgens wil ik aan de waarde een geluidsbestand hangen en als waarde L20 op 1 blijft staan wordt het geluidsbestand elke 1 minuut afgespeeld ivp alleen bij een verandering.

[Haije]

Wouter, post het bestand waar dit in voorkomt svp als bijlage

[alpha]

@Wouter,

Het is vreemd dat je aan het verzoek van Haije geen gevolg geeft.

Zonder aanvullende gegevens, bv.over de plaats van die macro's (behorend tot hetzelfde blad of tot verschillende bladen?) is het geven van een oplossing niet goed mogelijk.

19 september 2017 aangepast door alpha