Uups... - kleine Korrektur
14.02.2006 19:32:48
{Boris}
Hi,
hatte varSearch erst im Nachhinein hinzugefügt und den konstanten Suchbegriff "Boris" nicht entfernt. Zudem sollte man auch noch den Shape-Typen abfragen - das habe ich jetzt mal mit dem Namen gemacht (gehe davon aus, dass du die Dinger nicht umbenannt hast):
Option Explicit
Sub do_it()
Dim C As Range
Dim Ws As Worksheet
Dim Sh As Shape
Dim B As Boolean
Dim varSearch As Variant
varSearch = Application.InputBox("Bitte Suchbegriff eingeben...", "Suchbegriff")
If varSearch = False Then Exit Sub
With Worksheets("Übersicht")
.Range("A:A").Clear
.Range("A1").Value = "Suchbegriff " & varSearch & " gefunden in..."
.Range("A1").Font.Bold = True
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Übersicht" Then
Set C = Ws.Cells.Find(varSearch, lookat:=xlWhole)
If C Is Nothing Then
For Each Sh In Ws.Shapes
If InStr(1, Sh.Name, "Text") Then
If Sh.TextFrame.Characters.Text = varSearch Then
B = True
Exit For
End If
End If
Next Sh
Else
B = True
End If
Set C = Nothing
End If
If B Then
.Cells(Rows.Count, 1).End(xlUp).Offset(1) = Ws.Name
B = False
End If
Next Ws
.Columns(1).AutoFit
End With
End Sub
Grüße Boris