title image


Smiley Re: Mehrere CommandButtons in kompletter Mappe löschen
Hallo,

wenn du nur CommandButtons und keine anseren OLEObjekt in deinen Tabellen hast, so:





Sub Loeschen()



    Dim ws As Worksheet

    Dim obj As Object

    

    For Each ws In ActiveWorkbook.Worksheets

            

        For Each obj In ws.OLEObjects

            obj.Delete

        Next obj

        

    Next ws

    

End Sub





Code eingefügt mit Syntaxhighlighter 2.5






Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: