title image


Smiley Lösung mit der "Haudraufundweg"-Methode
Hallo Hans,



versuchs mal damit:







Sub oleobjects_loeschen()

Dim oleo As OLEObject

For Each oleo In ActiveSheet.OLEObjects

On Error GoTo sprung

    If oleo.LinkedCell = "A1" Then oleo.Delete

sprung:

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





Bin jetzt erstmal weg.
Gruß, Matthias
...auf einem Auge blöd!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: