Macro starten via celwaarde

[GerardPost]

Het volgende geval. Ik probeer een macro automatisch te laten starten bij een bepaalde celwaarde. Bijvoorbeeld: Ik heb 2 verschillende macro´s. Macro1 en Macro2. Als ik in cel A1 een getal tussen de 0 en 0,99 heb moet macro1 gaan lopen. Als ik in cel A1 een getal dat hoger of gelijk is aan 1 moet macro2 gaan lopen.
Het komt voor dat in cel A1 twee keer hetzelfde getal (bv A1=2, dus macro2 gaat lopen) achter elkaar komt. Volgens mij zal er dus ook "gerefreshed" moeten worden om wederom macro2 te laten lopen.
Dank voor diegene die mij kan helpen...

 

[Ingrid B]

Als de waarde in cel A1 manueel wordt gewijzigd kan je deze macro gebruiken:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target < 1 Then
MsgBox "start macro 1"
Else
MsgBox "start macro 2"
End If
End Sub

Staat in cel A1 een formule, dan zou deze macro moeten werken:

Private Sub Worksheet_Calculate()
If [A1] = [A2] Then Exit Sub
[A2] = [A1]
If [A1] < 1 Then
MsgBox "start macro 1"
Else
MsgBox "start macro 2"
End If
End Sub

Beide macro's moeten gekopieerd worden naar de werkblad-code:
http://users.pandora.be/ingrid/excel/copyvba.htm#blad