Option Explicit
Sub Beispiel()
Dim rngSucheIn As Excel.Range
Dim rngErgA As Excel.Range
Dim rngErgC As Excel.Range
Set rngSucheIn = ThisWorkbook.Worksheets("Tabelle1").Columns("A")
Set rngErgA = rngSucheIn.Find("Wert_A3", LookIn:=xlValues, LookAt:=xlWhole)
If Not rngErgA Is Nothing Then
Set rngErgC = rngErgA.Offset(ColumnOffset:=2)
Call MsgBox("Treffer in Zeile: " & rngErgA.Row & vbNewLine & _
"Wert Spalte A: " & rngErgA.Text & vbNewLine & _
"Wert Spalte C: " & rngErgC.Text, _
vbInformation)
Else
Call MsgBox("Kein Treffer.", vbInformation)
End If
End Sub