11. juli 2017 - 18:01
Der er
13 kommentarer og 1 løsning
Køre makro automatisk når en celle ændre værdi
Jeg mangler en makro, som kalder en anden makro når en bestemt celle ændres. Har ledt - men ikke fundet noget, jeg kan bruge
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Indsæt denne i aktuel arks kodemodul : Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("aktuel celle")) Is Nothing Then Exit Sub call din_makro End Sub men vær opmærksom på at koden ikke reagerer hvis cellen ændres via en formel i aktuel celle, ej heller ved farveskift
Min makro ser således ud: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("I1")) Is Nothing Then Exit Sub Call flaps End Sub Men den aktiverer ikke makro, når jeg ændrer i I1
prøv at indsætte følgende kode i et alm. modul og kør den Sub test() Application.EnableEvents = True End Sub
Beklager - men der er desværre ingen af de omtalte forslag som virker :( Er der en helt anden vej til problemløsningen?
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("I1")) Is Nothing Then Call flaps End If End Sub
Prøv evt. denne test: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("I1")) Is Nothing Then MsgBox "Celle " & Target.Address & " er blevet ændret." End If End Sub
Der manglede: Not Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("I1")) Is Nothing Then Call flaps End If End Sub
11. juli 2017 - 21:40
#10
Hej igen Jeg kan ikke begribe, at noget, som skulle virke så simpelt ikke virker. Nu har jeg prøvet med et helt nyt ark og rettet koden til dette: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then MsgBox "Ændret A1" End If End Sub Virker de på din version af Excel - det virker ikke på min :( ?
11. juli 2017 - 22:06
#11
Ja, den virker. Prøv denne test: Sub test() MsgBox Application.EnableEvents End Sub Som gerne skal give: True
11. juli 2017 - 22:08
#12
Private Sub Worksheet_Change(ByVal Target As Range) Skal ligge på det Ark hvor den skal bruges (ikke på: Denne_projektmappe)
Synes godt om
1 synes godt om dette
11. juli 2017 - 22:17
#13
TAK - det var placeringen, som var gal - troede ikke det havde nogen betydning
11. juli 2017 - 22:22
#14
Velbekomme
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig