Option Explicit
Sub Test()
Dim rngCell As Excel.Range
Set rngCell = Worksheets("Tabelle1").UsedRange.Find( _
What:=58, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=XlSearchOrder.xlByRows, _
MatchCase:=False)
If Not rngCell Is Nothing Then
Debug.Print "rngCell : "; rngCell.Address
Debug.Print "O(0, -1) : "; rngCell.Offset(0, -1).Address
Debug.Print "O(0, -2) : "; rngCell.Offset(0, -2).Address
Debug.Print "O(0, 1) : "; rngCell.Offset(0, 1).Address
End If
End Sub