Zoeken of waarde bestaat met Match

[Esducsafe]

@Helpers

Als in kolom D een percentage wordt ingevoerd moet deze voorkomen in kolom A.

Wanneer het percentage gevonden is, moet in kolom E de waarde uit kolom B worden overgenomen.
Ook na veel zoekwerk en uitproberen heb ik geen oplossing kunnen vinden.

Wie kan mij helpen?

Esko

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D:D")) Is Nothing Then
Dim RangeToSearchIn As Range
Dim ValueToSearchFor

Set RangeToSearchIn = ActiveSheet.Range("A1:A100")

ValueToSearchFor = Target 'value as percent to search

    If Not IsError(Application.Match(ValueToSearchFor, RangeToSearchIn, 0)) Then
        MsgBox "found  " & ValueToSearchFor
        Else
        Application.EnableEvents = False
        MsgBox "not found"
        Target.ClearContents
    End If
  
   
End If

Application.EnableEvents = True


End Sub

 

[JEC.]

=ALS(AANTAL.ALS($A$8:$A$9;D8);B8;"")

Voor in E8
(Totaal geen vba voor nodig)

 

[VenA]

1x codetages gebruiken is ook wel voldoende.
Waarom moet het met VBA? Kan toch simpel met gegevensvalidatie en een zoekfunctie.

 

[Esducsafe]

@JVeer
Dank voor je reactie, VBA heeft mijn voorkeur.
Groet,
Esko

 

[VenA]

Waar reageer je nu op? Waarom heeft VBA de voorkeur als zoiets eenvoudigs al niet lukt?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 4 And Target.Count = 1 Then
    Application.EnableEvents = False
      x = Application.Match(Target.Value, Columns(1), 0)
      If IsNumeric(x) Then
        Target.Offset(, 1) = Cells(x, 2)
       Else
        MsgBox "not found"
        Application.Undo
      End If
    Application.EnableEvents = True
  End If
End Sub

 

[Esducsafe]

@VenA
Dat dacht ik ook, het moet toch eenvoudig zijn.
Bedankt, het werkt.

Groet,
Esko