Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kontextmenü Kaskade

Forumthread: Kontextmenü Kaskade

Kontextmenü Kaskade
19.03.2017 20:53:41
Matthias
Hallo Experten,
ich habe folgende Probleme mit einem unter Office2010 funktionierenden Menü.
Es wird jetzt von Rechts nach Links aufgebaut.
Unter 2010 wurde das Menü korrekt geschlossen, wenn mit der Maus aus der 3 Kaskade
in die 1 gewechselt wurde. Jetzt bleibt alles geöffnet, wenn das wiederholt wird, hat man
entsprechend viele Menüs auf dem Schirm.
Was hat sich geändert?
Beste Grüße
Matthias
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontextmenü Kaskade
20.03.2017 03:45:26
mumpel
Hallo!
Geändert hat sich nichts. Wie sieht denn der Code aus?
Gruß, René
AW: Kontextmenü Kaskade
20.03.2017 10:37:49
Matthias
Hallo Rene,
Sub Sparte_Kon()
Dim oCmdBar As CommandBar
Dim oPopUpA As CommandBarPopup
Dim oPopUpB As CommandBarPopup
Dim oBtn As CommandBarButton
Dim iRowA As Integer
Dim a As Integer, iTag As Integer
Dim lngA As Long, lngB As Long, lngC As Long
Call CmdDelete1
Set oCmdBar = Application.CommandBars.Add( _
name:="Sparte", Position:=msoBarPopup)
With Worksheets("Technische Daten")
For irow = 2 To WorksheetFunction.CountA(.Columns("C"))
If Not IsEmpty(.Cells(irow, 1)) Then
Set oPopUpA = oCmdBar.Controls.Add(msoControlPopup)
oPopUpA.Caption = .Cells(irow, 1)
lngA = lngA + 10000 'Hauptpunkte in 10000er Schritten
oPopUpA.Tag = lngA
End If
If Not IsEmpty(.Cells(irow, 2)) Then
iTag = 0
Set oPopUpB = oPopUpA.Controls.Add(msoControlPopup)
oPopUpB.Caption = .Cells(irow, 2)
lngB = lngB + 100 'Unterpunkte in 100er Schritten
oPopUpB.Tag = lngA + lngB
End If
iTag = iTag + 1
Set oBtn = oPopUpB.Controls.Add
oBtn.Caption = .Cells(irow, 3)
oBtn.OnAction = "Eintrag"
oBtn.Tag = lngA + lngB + iTag
oBtn.Style = msoButtonCaption
Next irow
End With
End Sub
Genau so und in Excel aus Office 2010 läufts wie geschnitten Brot. Auch auf 2007.
Gruß
Matthias
Anzeige
AW: Kontextmenü Kaskade
20.03.2017 16:41:00
mumpel
Häng bitte eine Beispieldatei an, sonst müssen wir zuviel nachbauen.
AW: Kontextmenü Kaskade
22.03.2017 10:56:49
Matthias
So jetzt mit Beispieldatei.
Vielen Dank
Matthias
wo ist die Datei denn ;-) owT
22.03.2017 11:20:34
Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige