wie kan ich erreichen, dass bei finden eines Wertes nicht der Wert markiert wird, sondern das Feld 4 Spalten rechts?
Sub Search()
Dim strSrch As String
Dim xFind
strSrch = Application.CommandBars("Apotheke").Controls(5).Text
If strSrch = "" Then Exit Sub
Set xFind = Cells.Find(What:=strSrch, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False)
If Not xFind Is Nothing Then
xFind.Activate
Else
MsgBox "Suchbegriff wurde nicht gefunden !"
End If
End Sub
Danke für die schnelle Hilfe