Worksheet Change event fout bij wegschrijven range via inputbox

[Peer44]

Beste excel experts,

heb een probleem bij onderstaande code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B5:B43")) Is Nothing Then Target.Offset(, 1) = ""

If Not Intersect(Target, Range("b:b")) Is Nothing Then
     If Target.Value = "TEST" Then
          antwoord = InputBox("Aantal dagen (P+)")
          Target.Range("TEST_Waarde").Value = antwoord
     End If
End If
End Sub

de

Target.Range("TEST_Waarde").Value = antwoord

doet niet wat ik wil, krijg hier iedere keer foutmelding op

Ik wil dat de waarde die is ingegeven in de inputbox, wordt weggeschreven in de cel genaamd "test_waarde".
wat doe ik hier fout?

 

[pixcel]

Verwijder in die regel Target.

Hou je er rekening mee dat Target ook een bereik kan zijn van meerdere cellen?

 

[Peer44]

dat helpt niet, krijg de volgende melding:
fout 1004 tijdens uitvoering
Methode Range van object_Worksheet is mislukt.

Heeft het misschien te maken doordat het celadres "Test_Waarde" zich niet op hetzelfde werkblad bevindt, als waar het worksheet_change event staat?

 

[Niels28]

Als je de naam van het tabblad ervoor zet werkt het.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B5:B43")) Is Nothing Then Target.Offset(, 1) = ""

If Not Intersect(Target, Range("b:b")) Is Nothing Then
     If Target.Value = "TEST" Then Sheets("blad2").Range("TEST_Waarde").Value = InputBox("Aantal dagen (P+)")
End If
End Sub

Niels

 

[Peer44]

Niels, bedankt dat is de oplossing.