Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Menüpunkt im Kontextmenü "Pivotabelle" hinzufügen

Menüpunkt im Kontextmenü "Pivotabelle" hinzufügen
24.06.2005 10:01:04
Galenzo
Hallo,
ich möchte im Kontextmenü, das sich beim Rechtsklick auf eine Pivotabelle, öffnet einen weiteren Menüpunkt ("Kopieren") hinzufügen.
Wie ist die Bezeichnung dieses Menüs, mit dem ich es ansprechen kann?
Danke!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Menüpunkt im Kontextmenü "Pivotabelle" hinzufügen
24.06.2005 10:18:53
u_
Hallo,
versuchs mal mit
PivotTable Context Menu
Gruß
Geist ist geil!
CommandBars("PivotTable Context Menu")
24.06.2005 10:33:15
Galenzo
genau! das ist es. dank!
AW: Menüpunkt im Kontextmenü "Pivotabelle" hinzufügen
24.06.2005 10:20:13
Kurt
hi,

Sub test()
i = 1
For Each befehlsLeiste In CommandBars
Cells(i, 1) = befehlsLeiste.Name
Cells(i, 2) = befehlsLeiste.NameLocal
i = i + 1
Next
End Sub


eventuell die nummer 41 ;-)
...und Tschüss Kurt
AW: Menüpunkt im Kontextmenü "Pivotabelle" hinzufügen
24.06.2005 10:35:05
Galenzo
Danke für die Idee mit der Schleife!
AW: Menüpunkt im Kontextmenü "Pivotabelle" hinzufügen
24.06.2005 10:25:27
Mowgli
Hi Galenzo
hier aus Herber's CD

Sub IDFinder()
Dim oBar As CommandBar
Dim oCtr As CommandBarControl
Dim oBtn As CommandBarButton
Dim iRow As Integer
Range("A1").Value = "Symbolleiste"
Range("B1").Value = "Lokaler Name"
Range("C1").Value = "Sichtbar"
Range("D1").Value = "Schaltfläche"
Range("E1").Value = "ID"
Range("A1:E1").Font.Bold = True
iRow = 1
For Each oBar In CommandBars
If oBar.BuiltIn Then
iRow = iRow + 1
Cells(iRow, 1) = oBar.Name
Cells(iRow, 2) = oBar.NameLocal
Cells(iRow, 3) = oBar.Visible
For Each oCtr In oBar.Controls
If oCtr.BuiltIn Then
Cells(iRow, 4) = oCtr.Caption
Cells(iRow, 5) = oCtr.ID
iRow = iRow + 1
End If
Next oCtr
End If
Next oBar
Columns.AutoFit
End Sub

Gruss Mowgli
Anzeige
AW: Menüpunkt im Kontextmenü "Pivotabelle" hinzufügen
24.06.2005 10:34:27
Galenzo
hmm.. prima, danke.
hätte ich auch selber drauf kommen können, alle CommandBars mal mit 'ner Schleife auszulesen :-(

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige