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