title image


Smiley Re: Kontex menue
Hallo,



versteh ich nicht. Du meinst aber das Zellkontextmenü oder?

Wie hast Du deine Einträge da reingeschrieben?









Sub Eintraege_zaehlen()

MsgBox CommandBars("cell").Controls.Count

'alle Einträge löschen

With CommandBars("Cell")

    While .Controls.Count > 0

       'On Error Resume Next

        .Controls(1).Delete

    Wend

End With  

'erstellt wieder das Standardkontextmenü

CommandBars("Cell").Reset

 

End Sub  









Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: