Kontextmenü auf Tabelle1 begrenzen
31.10.2012 06:30:33
Wolfgang
folgender Code erstellt ein Kontextmenü mit re. Maustaste; Wie muß ich den Code ändern, damit das Kontextmenü ausschließlich in Tabellenblatt1 erscheint und in den anderen Tabellenblätter wieder das übliche Menü? Läßt sich der Zusatz, der wohl immer im normalen Kontextmenü erscheint und der Formatierung dient, irgendwie abstellen? - Schon jetzt herzlichen Dank für die Rückmeldungen.
Gruß - Wolfgang
Sub EigenesKontextMenüErstellen()
Dim KonBef As CommandBarButton
With Worksheets("Tabelle1") 'das läuft irgendwie nicht
With CommandBars("Cell")
While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Wend
Set KonBef = .Controls.Add(msoControlButton)
With KonBef
.Caption = "Import1"
.FaceId = 480
.OnAction = "Name des Makros"
End With
Set KonBef = .Controls.Add(msoControlButton)
With KonBef
.Caption = "Import2"
.FaceId = 5
.OnAction = "Name des Makros"
End With
Set KonBef = .Controls.Add(msoControlButton)
With KonBef
.Caption = "Datenimport stoppen"
.FaceId = 50
.OnAction = "Name des Makros"
End With
End With
End With
End Sub