Hallo Leute,
ich weiß irgendwie nicht weiter. Mit dem Code
On Error Resume Next
For i = ActiveSheet.Shapes.Count To 1 Step -1
If ActiveSheet.Shapes(i).Name "Scroll Bar 1" Then _
ActiveSheet.Shapes(ActiveSheet.Shapes(i).Name).Delete
Next
On Error GoTo 0
will ich Bilder, die durch ein Makro eingefügt werden löschen. Nun habe ich das Problem, dass in dem Tabellenblatt ein Gültigkeitsfeld vorhanden ist. Führe ich das Makro aus, wird das Blatt irgendwie so verändert, dass ich aus dem Gültigkeitsfeld nichts mehr auswählen kann. Der Pfeil ist nicht mehr da und ich kann auch kein neues Gültigkeitsfeld anlegen.
Woran kann das liegen und wie kann ich Abhlilfe schaffen.
Danke Euch,
Kasimir