Option Explicit
Sub Test()
Dim rngResult As Excel.Range
Dim strWhat As String
strWhat = "A1003"
Set rngResult = Worksheets("Tabelle1").Columns("B").Find( _
What:=strWhat, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
MatchCase:=False)
If rngResult Is Nothing Then
Call MsgBox("Es wurde nichts gefunden.", vbExclamation, "Suche nach '" & strWhat & "'")
Else
Call MsgBox("Fund in Zelle: " & rngResult.Address, vbInformation, "Suche nach '" & strWhat & "'")
With rngResult.Worksheet
Debug.Print "Spalte[Pruefnummer]:"; Tab(4); "'"; rngResult.Value; "'"
Debug.Print "Spalte[Gerät]:"; Tab(4); "'"; .Cells(rngResult.Row, "D").Value; "'"
Debug.Print "Spalte[Kategorie]:"; Tab(4); "'"; .Cells(rngResult.Row, "F").Value; "'"
Debug.Print "Spalte[Nennspannung]: "; Tab(4); "'"; .Cells(rngResult.Row, "H").Value; "'"
End With
End If
End Sub