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 fra Infor
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.