[vba]Automatisch macro uitvoeren na wijziging van een cel

Pagina: 1
Acties:
  • 8.110 views sinds 30-01-2008
  • Reageer

  • killerflappy
  • Registratie: Februari 2002
  • Laatst online: 29-08-2021
Is het mogelijk dat er automatisch een macro word uitgevoerd na het wijzigen van een cel?

Heb gezocht op Google en MSDN maar niets gevonden.

[ Voor 3% gewijzigd door killerflappy op 20-09-2004 14:55 ]


  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

helaas wel*:

code:
1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Als je deze toevoegt aan de betreffende sheet, dan kan je hierin een macro starten :)


*: Kan aardig wat performance gaan vreten, bij normale werkzaamheden binnen Excel. Check dan ook als eerst in je macro of je uberhaupt een bewerking moet uitvoeren (bijvoorbeeld adhv een range oid)...

[ Voor 37% gewijzigd door BtM909 op 20-09-2004 14:49 ]

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


  • killerflappy
  • Registratie: Februari 2002
  • Laatst online: 29-08-2021
BtM909 schreef op 20 september 2004 @ 14:47:
helaas wel*:

code:
1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Als je deze toevoegt aan de betreffende sheet, dan kan je hierin een macro starten :)


*: Kan aardig wat performance gaan vreten, bij normale werkzaamheden binnen Excel. Check dan ook als eerst in je macro of je uberhaupt een bewerking moet uitvoeren (bijvoorbeeld adhv een range oid)...
Hierbij wordt de macro continu uitgevoerd.
De macro moet echter een maal worden uitgevoerd na wijziging van één cel. In dit geval cel M6.

  • Gomez12
  • Registratie: Maart 2001
  • Laatst online: 17-10-2023
if row=6 and column=m then
...
endif???

Verwijderd

Cel_AfterUpdate
maar hoe het precies was ...

[ Voor 50% gewijzigd door Verwijderd op 20-09-2004 15:36 ]


  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

Cel_after update bestaat niet. Wel Worksheet_Change(ByVal Target As Excel.Range) en wat gomez schrijft:
code:
1
2
3
4
5
Sub Worksheet_Change(ByVal Target As Excel.Range)
      If target.row = 6 and target.column=13 then
      [...]
      End If
End sub

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland


Verwijderd

Niesje schreef op 20 september 2004 @ 16:04:

code:
1
2
3
4
Sub Worksheet_Change(ByVal Target As Excel.Range)
      If target.row = 6 and target.column=13 then
      [...]
End sub
of
code:
1
if target.address="$M$6" then
Pagina: 1