Ik heb een zoekfunctie, deze zoekt een een bepaalde range af; in dit geval a5 - a19.
Deze functie heb ik gemaakt aan de hand van de zoekfunctie in excel, deze heb ik toen gewoon opgenomen in vba.
Dit werkt, zolang de waarde er ook maar ergens tussenstaat.
Maar nu het probleem
Als het zoekwoord er niet tussenstaat, dan geeft hij een error. Heeft iemand een idee voor een werkende zoekfunctie. En dat die bijvoorbeeld weergeeft als de waarde niet bestaat: geef waarde opnieuw in of stop. (iets in die zin)
(Hierna worden er macro's uitgevoerd vanuit de gevonden cel.)
Alvast bedankt voor de moeite mensen, :thumb:
Deze functie heb ik gemaakt aan de hand van de zoekfunctie in excel, deze heb ik toen gewoon opgenomen in vba.
Dit werkt, zolang de waarde er ook maar ergens tussenstaat.
Maar nu het probleem
Als het zoekwoord er niet tussenstaat, dan geeft hij een error. Heeft iemand een idee voor een werkende zoekfunctie. En dat die bijvoorbeeld weergeeft als de waarde niet bestaat: geef waarde opnieuw in of stop. (iets in die zin)
Code:
Range("A5:A19").Select
vLotNummer = InputBox("Voer uw lotnummer in", "Test Bv")
Selection.Find(What:=vLotNummer, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate(Hierna worden er macro's uitgevoerd vanuit de gevonden cel.)
Alvast bedankt voor de moeite mensen, :thumb:
, is ook makkelijker voor mij ( minder moeite 
