Zellen Kontextmenue ausfuehren
26.06.2008 12:37:41
Martin
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