Das Archiv des Excel-Forums

Suche in Shapes

Excel-Version: 2000

Suche in Shapes von Alex vom 11.04.2002 - 15:53:14

Re: Suche in Shapes von Benoit vom 11.04.2002 - 18:48:20

Betrifft: Suche in Shapes
von: Alex
Geschrieben am: 11.04.2002 - 15:53:14

Hallo Leute,
was ist in meinem Programm falsch?
Danke für Eure Unterstützung..

'Suchen in Shapes
On Error Resume Next
For i = 1 To ActiveSheet.Shapes.Count
Err.Clear
ActiveSheet.Shapes(i).Select
strTextfeld = Selection.Characters.Text
If InStr(1, strTextfeld, strSuchbegriff, 1) And Err.Number = 0 Then
ActiveSheet.Shapes(i).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = FARBE
End If
Next i

Re: Suche in Shapes
von: Benoit
Geschrieben am: 11.04.2002 - 18:48:20

> 0 fehlt:
If InStr(1, strTextfeld, strSuchbegriff, 1) > 0 And Err.Number = 0 Then

Excel-Beispiele zum Thema "Suche in Shapes"
Shapes in Abhängigkeit von Zellwerten färben