ich habe mit einem gestern im Forum vorgestellten Makro ein Problem.
Das Makro sucht einen in einer Textbox eingegeben Wert und springt auf die entsprechende Zelle.
Klappt auch Prima, versagt jedoch wenn der Wert durch eine Formel berechnet wird.
Private Sub CommandButton1_Click()
On Error GoTo Fehler
s = TextBox1.Text
Cells.Find(What:=s, After:=ActiveCell, LookIn:=xlFormulas, lookat _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate
Exit Sub
Fehler:
MsgBox "Nicht gefunden"
End Sub
Wer kann helfen?
Vielen Dank
Jens