code activeren vanuit een kolom d.m.v. module

[Robert Smidt]

Beste Forumleden,

Ik ben voornemens om een code vanuit een module d.m.v. een knop op te roepen en dat deze alleen vanuit kolom 9 geactiveerd moet worden. Ik krijg nu de foutmelding: "Object vereist"

Sub pstcdpltskopieren()
[COLOR="#FF0000"]If Target.Column <> 9 [/COLOR]Then
    MsgBox ("De cursor staat niet op de positie van de postcode? Herstel dit en druk vervolgens op de knop")
    Exit Sub
Else
    Code = ActiveCell.Offset(0, 0)
    Plaats = ActiveCell.Offset(0, 1)
        
    Sheets("Pstcd-plts").Select
    Application.EnableEvents = False
        
    Range("A2").Select
    Selection.End(xlDown).Select
        
    rij = 1 + ActiveCell.Row
    Sheets("Pstcd-plts").Select
    ActiveSheet.Unprotect
        
    Cells(rij, 1) = Code
    Cells(rij, 2) = Plaats
    Sheets("Posten").Select
        
    ActiveCell.Offset(0, 1) = "=IFERROR(IF(RC[-1]<>"""",VLOOKUP(RC[-1],'Pstcd-plts'!R2C1:R496C2,2,0),""""),""Plaats onbekend"")"
End If
End Sub

Normaal werkt dat prima, echter dus niet vanuit een module. Hoe kan ik dit aanpassen dat het wel functioneert.

Alvast heel hartelijk dank.

Robert

 

[edmoor]

Je hebt geen Target object.
Maak er dit van: If ActiveCell.Column <> 9

 

[Robert Smidt]

De code werkt perfect, heel erg bedankt.