Option Explicit
Const xlByRows = 1
Const xlFormulas = -4123
Const xlNext = 1
Const xlPart = 2
Const ARBEITSMAPPEPFAD = "c:\test.xls"
Dim Excel, Suchtext, gefZelle
 
Set Excel = CreateObject("excel.application")
With Excel
  .visible = True
  .Workbooks.Open(ARBEITSMAPPEPFAD) 
  Suchtext = InputBox("Suchen nach:")
  'Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, 
  ' MatchByte, SearchFormat)
  Set gefZelle = .Cells.Find(Suchtext, , xlFormulas, xlPart, xlByRows, xlNext)
  If Not gefZelle Is Nothing Then
    .Range("C8").Value = Suchtext
  End If
'  .Save
End With