VBA werkt niet helemaal

[perry99]

hallo,

Heb een VBA maar werkt niet helemaal goed, kom er zelf niet meer uit.

Als ik in een cel in kolom 18 (b.v. R20) een 3 plaats zet die keurig de datum
van vandaag in kolom W neer.
Het vervelende alleen is dat die daarna steeds terug gaat naar cel A1, wat staat
er verkeerd in de VBA.
Wil graag in het vakje R20 blijven staan.

Hoop dat iemand mij kan helpen.

Groetjes,

Perry

Private Sub Worksheet_Change(ByVal Target As Range)
   Sheets("OFFERTE REGISTRATIE").Select
    Range("A1").Select
    ActiveSheet.Protect Password:="BAS", UserInterfaceOnly:=True
    ActiveSheet.EnableAutoFilter = True
    
    
    If Target.Range("A1").Column = 18 And Target.Range("A1").Value = 3 Then
    Range("W" & Target.Range("A1").Row) = Date
    
    
End If
End Sub

 

[Wigi]

Tja, haal dit er dan uit...

    Range("A1").Select

 

[perry99]

Wigi,

Bedankt, ben hier al meer dan 2 dagen mee aan het stoeien.

Tja, wat kan het soms simpel zijn, BEDANKT.

:thumb: :thumb: :thumb: :thumb: