Thema: Zellen Kontextmenue ausfuehren

Hallo Gemeinde,
ich habe mal wieder ein kleines Problemchen.
Folgendes:
Mein Programm soll bei Rechtsklick auf die Zelle A1 deren Hintergrundfarbe einlesen.
Ist dies geschehen soll die Frage nach einem Farbwechsel erfolgen. Wird diese bejaht, dann
soll das Kontextmenü für die Farbgestalltung des Zellhintergrundes aufgerufen werden. Dort
wird die neue Zellfarbe gewählt, die sich dann das Programm merkt.
Bis zum Aufruf komme ich ohne Probleme. Doch ich bekomme das entsprechende Kontextmenü zu spät
geöffnet, nämlich dann wenn die sub schon beendet ist.
Gibts dafür was sinnvolles?
Hier mein bisheriger Code:

Private Sub Worksheet_BeforeRightClick( ByVal Target As Range, Cancel As Boolean)
If Target.Address = Cells(1, 1).Address Then
intfarbe1 = Target.Interior.ColorIndex
santwort = MsgBox("Farbwechsel ?", vbYesNo, "Warning !")
If santwort = vbYes Then
Hier fehlt mir der nötige Inhalt
intfarbe2 = Target.Interior.ColorInde
End If
End If
End Sub

Würde mich über Tips oder Lösungsvorschläge sehr freuen,
Martin

Hallo,
das geht so nicht. Du kannst während eine Prozedur läuft nicht mit einer Commandbar arbeiten.
Baue dir eine UF mit 56 Commandbuttons in den entsprechenden Farben.
Gruß
Rudi

Schade,
warum sollte es auch so einfach gehen. :-)

Hallo,
hast du es schonmal mit:
Application.CommandBars("Fill Color").Visible = True
versucht? Läuft allerdings nur bis Excel 2003.
Viele Grüße
Mathias
http://www.teamplaner.net

Hallo, danke für die Antwort.
Habe es mit einer UF mit verschiedenen farbigen Buttons gemacht.