title image


Smiley könnte man so machen


Option Explicit



Private Sub Worksheet_Activate()

    Dim Co As OLEObject

    

    

    For Each Co In OLEObjects

       If Co.progID = "Forms.CheckBox.1" Then

          Co.Object.Value = False

       End If

    Next

    

    

    Set Co = Nothing

End Sub

 Code eingefügt mit Syntaxhighlighter 1.16

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: