Worksheet_Change loopt mis

[GiMe]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$4" Then
Range("A4").Select
Selection.Copy
Range("E4").Select
Sheets("blad2").Select
Range("A1").Select
ActiveSheet.Paste
End If
End Sub

Waarom krijg ik de foutmelding 'Fout 1004 Methode Select mislukt' en gebeurt dit niet wanneer je op hetzelfde werkblad blijft ?
En hoe kan ik naar een andere werkblad met met Worksheet_Change ,
Bedankt op voorhand ,

GiMe

 

[Wigi]

Waarom krijg ik de foutmelding 'Fout 1004 Methode Select mislukt' en gebeurt dit niet wanneer je op hetzelfde werkblad blijft ?
En hoe kan ik naar een andere werkblad met met Worksheet_Change ,
Bedankt op voorhand ,

GiMe

Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address = "$A$4" Then Range("A4").Copy Sheets("blad2").Range("A1")
End Sub

Wigi

 

[GiMe]

Is niet wat ik ervan verwacht nl : alleen als in cel A4 van blad1 iets gewijzigd wordt moet de inhoud van deze cel gecopieerd naar blad2

 

[Wigi]

Is niet wat ik ervan verwacht nl : alleen als in cel A4 van blad1 iets gewijzigd wordt moet de inhoud van deze cel gecopieerd naar blad2

De code zou toch moeten werken.

Waar heb je de code geplakt? Toch enkel achter 1 en niet achter blad 2?

 

[GiMe]

Code werkt !!
Er was meer aan de hand met mijn werkmap,dan alleen de verkeerde code

Bedankt alleszins Wigi ! :thumb:

GiMe

 

[Wigi]

Code werkt !!
Er was meer aan de hand met mijn werkmap,dan alleen de verkeerde code

Bedankt alleszins Wigi ! :thumb:

GiMe

OK, blij dat dat opgelost is nu.