Autostart af makro når en celle ændres

I arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
' kode
End If
End Sub

et svar ;-))

UBS ...

Arkets modul ... hmm ... hvilket er mon det ... Måske jeg skulle læse et par bøger ...

Søren

Forstår vist ikke hvorledes jeg skal bruge det

Arkets modul findes ved at højreklikke på en arkfane og vælge vis programkode.

Der på det hvide felt kopierer du dette ind:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then 'ret "$A$1" til den celle det skal virke på
' kode

' hvis du vil kalde en anden makro herfra, f.e.x. en du selv har optaget, kaldes den således.

' call makro1

End If
End Sub



luk editoren igen ved at trykke på det øverste X i højre hjørne.

Stedet som jeg så havde fundet var så rigtig nok. Men tak.

Men der sker bare ikke rigtig noget. Men tror nu det er det som der skal ske der er noget i vejen med ...

Har skrevet følgende, bare for at se det virke ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$j$4" Then
  Range("b4") = Range("w7").Value
End If
End Sub

Burde det ikke virke ...

joo.

Værdien i Range("w7") burde komme i Range("b4"), Når du ændrer i J4

Bemærk, hvis J4 indeholder en formel, så trikker den ikke, den trikker kun på celler med fysisk indtastning.

Men der sker ikke en dyt ... og har set andetsteds, at hvis det er en formel skal der stå noget andet ...

Har prøvet med følgende kode i et nyt ark ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$a$1" Then
MsgBox "celle(A1) er ændret"
End If
End Sub

Heller ikke her giver det sig til at sne ...

hmmm ...

Er du sikker på at du har koden i arkmodulet.

når du er inde i editoren, kan du se arknavnene ude til venstre, dobbeltklik på navnet og modulet vil vise sig.

Tror jeg ...

Har lagt et skærm dump ud ... http://m.bogmadsen.com/dump.jpg

... øv

Det er ikke sådan at du er kommet til at slå de automatiske makroer fra, du kan slå dem til igen, ved at køre denne makro.

Public Sub GenstartAutomatiskeMakroer()
Application.EnableEvents = True
End Sub

Jeg ser fejlen nu:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then ' BOGSTAVET SKAL VÆRE STORT
MsgBox "celle(A1) er ændret"
End If
End Sub

TAAAAAAAAAK ... tusinde tak

Hvor'n pokker mon jeg skulle have gættet det