Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kontextmenu - es geht nicht mehr weg!

kontextmenu - es geht nicht mehr weg!
06.07.2003 09:50:17
mehmet
guten morgen forum
folgendes macro:

Sub ZellenKontextMenuErganzen()
Dim MB As CommandBarControl
Set MB = Application.CommandBars("cell").Controls.Add
With MB
.Caption = "Nachricht 2"
.OnAction = "Nachricht2"
.BeginGroup = True
End With
Set MB = Application.CommandBars("cell").Controls.Add
With MB
.Caption = "Nachricht 3"
.OnAction = "Nachricht3"
End With
End Sub
Private Sub Nachricht2()
MsgBox ("Nachricht2")
End Sub
Private Sub Nachricht3()
MsgBox ("Nachricht3")
End Sub

leider bekomme ich den kontextmenu nicht mehr weg
wenn ich neues blatt oeffne, ist diese kontextmenu
immer dabei.
ich wollte eigendlich, dass diese menu nur fuer diese
mappe sein sollte.
habt ihr eine idee?
gruss
mehmet

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kontextmenu - es geht nicht mehr weg!
06.07.2003 10:59:50
guenter
hallo
versuch es mal damit,du must beim schliesen deiner mappe halt dieses makro aus führen
~begin~

Sub CmdBarReset()
On Error Resume Next
Application.CommandBars("Cell") _
.Controls("name deines eintrages").Delete
End Sub

~end~
anpassen musst du es natürlich
mfg

AW: kontextmenu - es geht nicht mehr weg!
06.07.2003 11:59:27
mehmet
super gunter dank dir
fuer die, die es verfolgt haben

'in diese arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Controls("Nachricht 2").Delete
Application.CommandBars("Cell").Controls("Nachricht 3").Delete
End Sub


Anzeige
~begin~ ~end~steht für?
06.07.2003 11:43:51
michael
Hallo,
für was steht~begin~ ~end~?
VG
Michael


AW: ~begin~ ~end~steht für?
06.07.2003 11:52:28
geri
Hallo Michael
das Beginn und END kannst du ignorieren dies kommt vom alten Forum
und war nötig für die korrekte Darstellung
also alles mit ~ ausser acht lassen
gruss geri

AW: ~begin~ ~end~steht für?
06.07.2003 11:58:54
guenter
Stimmt hatte ich vergessen

Danke Geri
06.07.2003 11:57:56
michael
VG Michael

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige