vba search resultaat

[wilbert1967]

Hallo

ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SEARCH(""Blad 1"",RC[-2],1)"

If ActiveCell.FormulaR1C1 = 10 Then
MsgBox ("gelukt")
Else
MsgBox ("mislukt")
End If

ik wil hierbij het reslutaat van de search hebben.
Hoe moet dat?

Wilbert

 

[jzeedijk]

Hoi Wilbert,

Met jouw code zet je een formule in een cel. Als je echter een werkbladfunctie als Vind.spec wilt laten uitvoeren door VBA, dan doe je dat met, sta niet verbaast:
Activecell = Worksheetfunction.search("Blad 1",activecell.offset(0,-2),1)

Jeroen