Sub suche()
Dim suchbegriff As Range
Dim i As Long, cnt As Long
Set suchbegriff = Worksheets(1).Range("O1")
For i = 1 To ThisWorkbook.Worksheets.Count
If Not (Worksheets(i).Name = Worksheets(1).Name) Then
If Application.CountIfs(Worksheets(i).Cells, "*" & suchbegriff.Value & "*") > 0 Then
cnt = cnt + 1
suchbegriff.Offset(cnt).Value = Worksheets(i).Name
End If
End If
Next
End Sub
|