Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zellen Kontextmenue ausfuehren

Betrifft: Zellen Kontextmenue ausfuehren von: Martin
Geschrieben am: 26.06.2008 12:37:41

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

  

Betrifft: AW: Zellen Kontextmenue ausfuehren von: Rudi Maintaire
Geschrieben am: 26.06.2008 12:46:55

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


  

Betrifft: AW: Zellen Kontextmenue ausfuehren von: Martin
Geschrieben am: 26.06.2008 12:58:26

Schade,

warum sollte es auch so einfach gehen. :-)


  

Betrifft: AW: Zellen Kontextmenue ausfuehren von: Mathias
Geschrieben am: 30.06.2008 13:01:09

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


  

Betrifft: AW: Zellen Kontextmenue ausfuehren von: Martin
Geschrieben am: 09.07.2008 08:45:40

Hallo, danke für die Antwort.

Habe es mit einer UF mit verschiedenen farbigen Buttons gemacht.


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen Kontextmenue ausfuehren"