Menüleiste
13.06.2003 15:20:51
Hans-Jürgen Tegtmeier
Set oBar = NeueLeiste.Controls.Add(msoControlPopup)
With oBar
.Caption = "Zettel"
End With
For Each wks In ThisWorkbook.Worksheets
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = wks.name
.Style = msoButtonCaption
.OnAction = "mnuAuswahl"
End With
Next wks
Kann mir jemand einen Tip geben wie ich nur die aktiven Blätter einlese. Ich hab schon alles probiert. Mir fällt nichts mehr ein.
Für Lösungen oder Ansätze "Besten Dank"