MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 19.07.2018, 07:54   #1
Fuzzy62
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Kontextmenü fehlt

Guten morgen zusammen,

ich habe ein Makro womit das Kontextmenü erweiter wird, klappt auch soweit!

Das Problem ist wenn ich eine Tabelle erzeugt habe und in der Tabelle das Kontextmenü aufrufe, ist das erweiterte weg, klicke ich neben die Tabelle sind die Erweiterungen wieder da. Wie kann ich es schaffen das ich auch in der Tabelle das Kontextmenü mit der Erweiterung aufrufen kann?

PHP-Code:

Sub ZellKontexmenueErgänzen()
On Error Resume Next

Application
.CommandBars("Cell").Controls("Trinkwasser").Delete
With Application
.CommandBars("Cell").Controls.Add(Type:=msoControlPopup)
            .
BeginGroup True Trennlinie
            On Error GoTo 0
            
.Caption "Trinkwasser"
            
.Tag = .Caption
    With 
.Controls.Add
        
.FaceId 210
        
.Caption "Tabelle sortieren"
        
.OnAction "sortieren"
        
.Tag = .Caption
        
.BeginGroup True 
    End With

End With 
Fuzzy62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:04   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

ich habe mal eine Zeile aus kommentiert, da falsch.
Bei mir wird es angezeigt.
Code:

Option Explicit

Sub ZellKontexmenueErg?nzen()
    On Error Resume Next
    
    Application.CommandBars("Cell").Controls("Trinkwasser").Delete
    With Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup)
        '.BeginGroup = True Trennlinie
        On Error GoTo 0
        .Caption = "Trinkwasser"
        .Tag = .Caption
        With .Controls.Add
            .FaceId = 210
            .Caption = "Tabelle sortieren"
            .OnAction = "sortieren"
            .Tag = .Caption
            .BeginGroup = True
        End With
    End With
End Sub
keine Ahnung wie man neben die Tabelle klick, meinst Du Desktop?


GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:12   #3
Groetzki
MOF User
MOF User
Standard

Hallo Fuzzy,

dein Problem habe ich verstanden.
Die Lösung liegt darin, dass das Kontextmenü innerhalb einer Tabelle (ListObject) ein anderes ist, als in den "normalen" Zellen.
Du wirst daher den Code auch auf die andere CommandBar anwenden müssen. Ich weiß leider noch nicht wie der entsprechende Name lautet (statt "Cell"). Ich versuche grad das rauszufinden.

Gruß
Timm
Groetzki ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:16   #4
Fuzzy62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Sorry, ich habe im Tabellenblatt eine interlligente Tabelle erzeugt, wenn ich neben diese klicke funktioniert es, klick ich in der Tabelle leider nicht!


Gruß Klaus
Fuzzy62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:35   #5
Case_Germany
MOF User
MOF User
Standard

Hallo Klaus,

für ein "ListObject" ist es:

Code:

Application.CommandBars("List Range Popup").Controls.Add
Servus
Case

__________________

VBA & VB.NET Blog
Case_Germany ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:42   #6
Groetzki
MOF User
MOF User
Standard

Hi Case

Ich war mittlerweile dicht dran. Ich hab mir extra eine Liste aller Commandbar namen ausgeben lassen und alle die sinnvoll klangen probiert "List Range" hatte ich schon probiert. "List Range Popup" war weiter unten in der Liste...

@Klaus Damit hast du nun die richtige Commandbar.
Groetzki ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:44   #7
Fuzzy62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Case,

super klappt dank dir!

__________________

Gruß Klaus


Es könnt alles so einfach sein, ist es aber nicht
Fuzzy62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:46   #8
Fuzzy62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ja, habe es ersetzt!

PHP-Code:

Application.CommandBars("List Range Popup").Controls.Add(Type:=msoControlPopup
perfekt!!


Danke für die Mühe!

__________________

Gruß Klaus


Es könnt alles so einfach sein, ist es aber nicht
Fuzzy62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 08:53   #9
Fuzzy62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hey Groetzki,

Zitat:

Ich hab mir extra eine Liste aller Commandbar namen ausgeben lassen

wo kann man nach das nach schauen?

Gruß Klaus

__________________

Gruß Klaus


Es könnt alles so einfach sein, ist es aber nicht
Fuzzy62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 09:05   #10
Fuzzy62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Kann ich auch beides miteinander verbinden?

Zitat:

"Cells" und "List Range Popup"

__________________

Gruß Klaus


Es könnt alles so einfach sein, ist es aber nicht
Fuzzy62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 10:04   #11
Groetzki
MOF User
MOF User
Standard

Hi Fuzzy

Code:

Public Sub ZellKontexmenueErgänzen()
On Error Resume Next
Dim command As Variant, commands(1) As CommandBar

Set commands(0) = Application.CommandBars("Cell")
Set commands(1) = Application.CommandBars("List Range Popup")

For Each command In commands
    command.Controls("Trinkwasser").Delete
    With command.Controls.Add(Type:=msoControlPopup)
        .BeginGroup = True
        .Caption = "Trinkwasser"
        .Tag = .Caption
        With .Controls.Add
            .FaceId = 210
            .Caption = "Tabelle sortieren"
            .OnAction = "sortieren"
            .Tag = .Caption
            .BeginGroup = True
        End With
    End With
Next
On Error GoTo 0
End Sub
So hast du gleich beide Kontextmenüs erschlagen.

Die Auflistung habe ich so erzeugt:
Code:

Private Sub ListeCommandbars()
    Dim CommandBar As CommandBar
    
    For Each CommandBar In Application.CommandBars
        Debug.Print CommandBar.Name
    Next
End Sub
Gruß
Timm
Groetzki ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.07.2018, 22:00   #12
Fuzzy62
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke Timm, so klappt es

__________________

Gruß Klaus


Es könnt alles so einfach sein, ist es aber nicht
Fuzzy62 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:45 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.