ich habe mir ein Menu gemacht, aus welchem ich bestimmte Zellen aus verschiedenen Tabellenblätern dann leeren können möchte. Allerdings müssen ein paar nicht geleert werden sondern mit einer 0 belegt werden geht das ?
Anbei mal der Code meines Menues:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
'Hier wird der Menüeintrag beim Beenden wieder gelöscht
Application.CommandBars("Worksheet Menu Bar").Controls("EVH").Delete
On Error GoTo 0
Application.StatusBar = False
End Sub
Private Sub Workbook_Open()
strDateiName = Application.ActiveWorkbook.Name
Dim KonBef As CommandBarControl
Dim KonBef2 As CommandBarControl
Dim KonBef3 As CommandBarControl
Set cmdBar = Application.CommandBars("Worksheet Menu Bar")
Set ablauf = Application.CommandBars("Worksheet Menu Bar")
'------------------------------------------------------------------------
With ablauf
'Hier wird der Menüpunkt EVH ANGELEGT
Set KonBef = .Controls.Add(Type:=msoControlPopup, Temporary:=True)
KonBef.Caption = "About Charakterbogen"
'#### Hier wird festgelegt, dass beim Anklicken des Menüpunktes
'#### "Aufruf Userform DISCLAIMER" das Makro ZEIGEN aufgerufen wird.
'#### In diesem Makro wird dann Dein Userform mit "Disclaimer.show"
'#### aufgerufen.
'-------------------------------------------------------------------------
'Hier wird der einzelne Menüpunkt angelegt
Set KonBef3 = KonBef.Controls.Add
With KonBef3
.Caption = "Disclaimer"
.FaceId = 18
.OnAction = "UserForm_Info"
End With
'-----------------------------------------------------------------------
End With
End Sub