VBA werkt niet

[Enigmasmurf]

Of net niet voldoende?
Je zou wel eens in de knoei kunnen komen als je 'events' niet onder controle houdt!

 

[snb]

Er gebeurt alleen maar iets als in cel A1 iets veranderd is.

 

[Enigmasmurf]

Precies! En doordat je dan vier cellen vult krijg je vervolgens al een fout bij "If Target = cells(1)".

 

[snb]

Logisch is dat natuurlijk niet, maar .....
Dan voeg je toch gewoon on error resume next toe.

 

[Enigmasmurf]

Werkelijk?
Ga dan maar eens met F8 door je code.

 

[HSV]

Simpel te verhelpen met.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.address = Cells(1).address Then Cells(Rows.Count, 2).End(3)(2).Resize(, 4) = Target
End Sub

 

[Enigmasmurf]

En toch wordt het change-event dan nog 2 maal aangeroepen (ook weer geen ramp natuurlijk, zo ruimdenkend ben ik wel).
Ik zal het geen bijna obsessieve drang noemen om elke formule en elke code zo kort mogelijk te willen schrijven, maar ik zie het hier wel ettelijke keren gebeuren. Ik doe het ook, hoor, als daar nadrukkelijk winst mee te boeken valt.
Maar hier... wat is er nu eigenlijk mis met events eventjes te deactiveren, als dat de meest logische methode is?