Hallo Liebe Experten,
in untem stehenden Beispiel, kann ich nur die 1 und 3 Kaskade auslesen ich benötige
aber auch den Inhalt der 2 (soll Eingaben deutlich erleichtern).
Ich bedanke mich für Eure Bemühungen
Matthias
With Worksheets("Einarbeitungsinhalte")
a = WorksheetFunction.CountA(.Columns("C"))
For iRow = 1 To WorksheetFunction.CountA(.Columns("C"))
If Not IsEmpty(.Cells(iRow, 1)) Then
Set oPopUpA = oCmdBar.Controls.Add(msoControlPopup)
oPopUpA.Caption = .Cells(iRow, 1)
End If
If Not IsEmpty(.Cells(iRow, 2)) Then
Set oPopUpB = oPopUpA.Controls.Add(msoControlPopup)
oPopUpB.Caption = .Cells(iRow, 2)
End If
Set oBtn = oPopUpB.Controls.Add
oBtn.Caption = .Cells(iRow, 3)
oBtn.OnAction = "Eintrag"
oBtn.Style = msoButtonCaption
___________________________________________________________________________________
Sub Eintrag()
Dim rngFind As Range
Dim intCol As Integer
ActiveCell.Value = _
Application.CommandBars("Inhalte") _
.Controls(Application.Caller(2)).Caption
With ActiveCell
.Offset(0, 14) = CommandBars.ActionControl.Caption
End With
With Worksheets("Einarbeitungsplan")
Set rngFind = .Columns(1).Find(CommandBars("Inhalte"). _
Controls(Application.Caller(2)).Caption)