Sub Suchen_und_ausgeben()
Dim rng As Range
Dim sFind As String
Dim myStr As String
Dim intC As Integer
sFind = InputBox("Bitte Suchbegriff eingeben!", "SUCHE", "")
If sFind = "" Then Exit Sub
For Each sh In ThisWorkbook.Worksheets
Set rng = sh.Cells.Find(What:=sFind, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
For intC = 1 To 27
myStr = myStr & Format(intC, "00") & ". " & sh.Cells(intC, rng.Column) & vbLf
Next intC
MsgBox "Das Ergebnis der Suche nach " & sFind & ":" & vbLf & vbLf & myStr
Exit For
End If
Next sh
End Sub
Vielen Dank im vorraus!!!