Wie kan mij helpen.
Ben al een tijdje aan het worstelen met onderstaande:
In een werkblad dient VBA te zoeken naar een door de gebruiker aangegeven cijfer. Zoals "7". Dit cijfer zoekt VBA in een aangegeven bereik zoals "[A1:A500]". Echter in dit bereik kan ook "7A", "7B", etc. voorkomen. Deze moet hij ook zoeken en uiteindelijk de laatste versie, zoals bijvoorbeeld "7D" aangeven en vinden. Zie onderstaande code:
d.m.v. 'searchdirection:=xlPrevious' en 'lookat:=xlPart' vindt VBA helaas eerst "17" of "27" en niet "7D". Kan VBA ook zoeken naar cijfer "7 en verder" zonder ook te zoeken naar "begin en 7" ??????
Alvast bedankt.
Ben al een tijdje aan het worstelen met onderstaande:
In een werkblad dient VBA te zoeken naar een door de gebruiker aangegeven cijfer. Zoals "7". Dit cijfer zoekt VBA in een aangegeven bereik zoals "[A1:A500]". Echter in dit bereik kan ook "7A", "7B", etc. voorkomen. Deze moet hij ook zoeken en uiteindelijk de laatste versie, zoals bijvoorbeeld "7D" aangeven en vinden. Zie onderstaande code:
Code:
Worksheets(1).Activate
With Worksheets(1).Range("A1:A500")
Set a = .Find(SubNr, LookIn:=xlValues, LookAt:=xlPart, searchdirection:=xlPrevious)
If Not a Is Nothing Then
firstaddress = a.Address
Do
Regel = a.Row
If Worksheets(1).Cells(Regel, "E") = "" Then
Worksheets(1).Cells(Regel, "E").Select
EndLoop = True
Exit Do
Else
Set a = .FindNext(a)
Regel = a.Row
End If
Loop Until EndLoop = True Or a.Address = firstaddress
End If
d.m.v. 'searchdirection:=xlPrevious' en 'lookat:=xlPart' vindt VBA helaas eerst "17" of "27" en niet "7D". Kan VBA ook zoeken naar cijfer "7 en verder" zonder ook te zoeken naar "begin en 7" ??????
Alvast bedankt.
Laatst bewerkt door een moderator: