Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kontextmenue

Kontextmenue
02.06.2003 13:54:57
Peter
Hallo an alle,

ich habe in einer Datei im Kontextmenue, einige Befehle deaktiviert und mit einige anderen Befehlen erweitert.

z.B. das ändern der Hintergrundfarbe der aktiven Zelle


With CommandBars("Cell").Controls.Add(Type:=msoControlPopup)
.BeginGroup = True 'Trennlinie
On Error GoTo 0
.Caption = "Hintergrundfarbe"
'erster Menüpunkt
With .Controls.Add
.FaceId = 1691
.Caption = "Gelb"
.OnAction = "Hintergrund_gelb"
End With
With .Controls.Add
.BeginGroup = True 'Trennlinie
.FaceId = 1691
.Caption = "Gelb löschen"
.OnAction = "Hintergrund_ohne"
End With
End With


Sub Hintergrund_gelb()
ActiveCell.Interior.ColorIndex = 6
End Sub

Sub Hintergrund_ohne()
ActiveCell.Interior.ColorIndex = xlNone
End Sub


klappt einwandfrei (diesen Makro habe ich aus dem Forum)


Nun soll dieser Befehl im Kontextmenue aber nur in der Spalte L aktiviert sein, in allen anderen deaktiviert.

Weiß jemand ob und wie es funktioniert ?!?!


Gruß Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kontextmenue
02.06.2003 14:13:52
L.Vira

Wie wird der Code ausgelöst?

Re: Kontextmenue
02.06.2003 14:22:02
Peter

Hallo L.Vira

so wird er ausgelöst in

diese Arbeitsmappe

mit

Private Sub Workbook_Activate()
auto_open
End Sub



Re: Kontextmenue
02.06.2003 14:30:30
L.Vira

Sub Hintergrund_gelb()
if activecell.column=7 then _
ActiveCell.Interior.ColorIndex = 6
End Sub

Sub Hintergrund_ohne()
if activecell.column=7 then _
ActiveCell.Interior.ColorIndex = xlNone
End Sub


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige