Suche in Shapes



Excel-Version: 2000
nach unten

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


nach oben   nach unten

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
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Suche in Shapes"