Zoeken deel van een woord binnen een bepaald bereik (vba)

[Robert Smidt]

Beste Forumleden,

Graag zou ik wat hulp willen hebben bij mijn volgende vraag:

Ik heb twee tabellen (zie voorbeeld), één bestaande uit voertuigen en één bestaande uit kosten. Nu is het de bedoeling dat wanneer ik in één van de velden van de kosten met mijn cursor sta (kolom C) en ik hier een enter op geef, deze één van de kentekens uit het eerste tabel herkent, wanneer dat het geval is, deze het bericht "klopt" weergeeft of anders "Klopt niet". De kentekens kunnen gevuld worden van D16 t/m D23 (dat is mijn zoekbereik).

Nu werkt de code goed wanneer ik verwijs naar één kenteken bijv. D16, echter gaat het fout wanneer ik binnen een bepaald bereik meerdere kentekens en lege cellen aangeef.

Ik hoop dat iemand mij hierbij kan helpen.

Alvast heel erg bedankt.

Robert

 

[HSV]

Mij lijkt de MsgBox erg vervelend in gebruik.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
a = Split(Join(Filter([transpose(if(d16:d23>0,d16:d23,"~"))], "~", False), "|"), "|")
For j = 0 To UBound(a)
  If InStr(Target.Value, a(j)) Then
      bl = True
      Exit For
  End If
   Next j
MsgBox "Klopt " & IIf(bl, "", "niet.")
Application.EnableEvents = True
End Sub

 

[Robert Smidt]

Beste Harry,

Heel hartelijk dank voor de oplossing, wederom een code waar ik zelf nooit op gekomen zou zijn.

De msgbox heb ik hier als voorbeeld geplaatst. In de praktijk is het de bedoeling dat jouw code een andere code activeert of links laat liggen.

Nogmaals ontzettend bedankt voor de snelle reactie.

Robert