Naar kolom kijken ipv naar cel

[vrouw]

Waarschijnlijk een simpel dingetje maar ik krijg het niet voor elkaar.

Ik wil dat er naar de hele kolom, gekeken word (en anders in iedergeval van A1 tot A102) ipv alleen naar cel A1.
Onderstaande werkt dus als er een negatieve waarde in cel A1 staat maar ik wil dat de code naar de hele komom kijkt
of ergens een negatieve waarde staat. Zo ja dan door naar macro 2.

De regel
Range("A1") < 0 Then
vervangen met
Range("A:A") < 0 Then
werkt dus niet.

Private Sub Worksheet_Change(ByVal Target As Range)
         If Range("A1") < 0 Then
        Macro2
    Else
      Exit Sub
  End If
End Sub

 

[Cobbe]

Private Sub Worksheet_Change(ByVal Target As Range)
   For Each cl In Range("A1:A102")
    If cl < 0 Then
        MsgBox "Nu loopt de macro ! "  'Macro2
    End If
  Next
End Sub

 

[vrouw]

werkt niet in de andere cellen.
nog steeds alleen in cel A1

 

[Cobbe]

Probeer nog eens.

 

[vrouw]

Top, dan wel dus...

 

[Ginger]

Ik zou bij deze procedure vóóral een EnableEvents = False inzetten. Dit is anders 1 grote lus van afgevuurde Change Events.... ;-)

 

[vrouw]

Maar.. als de waardes alleen maar groter zijn dan >-1 dan moet de macro stoppen

Dus dan komt er nog
Else en
Next bij?

Dan komt er weer een melding dat er een Next without For ontbreekt?

 

[Cobbe]

Die code van mij doet perfect wat ze moet doen voor het oplossen van het probleem gesteld in de vraag.
Wat er gebeurt na het runnen van de macro kan ik niet weten en is ook niet gevraagd.
Dus zonder EnableEvents loopt die code perfect.

 

[vrouw]

Top. bedankt voor de hulp:thumb: