ich habe noch ein Problem mit meiner eigenen Menüleiste. In einem Popup-Feld sollen alle eingeblendeten Tabellenblätter angezeigt werden. Dazu habe ich folgenden Code erstellt, der in aufgerufen wird:
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oBar.Visible = True
oPopUp.Caption = "Drucken"
' Unterpunkte - Tabellenblätter
For Each Blatt In Sheets
If Blatt.Visible = xlSheetVisible Then
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = Blatt.Name
.Style = msoButtonCaption
'.OnAction = "BlaetterAnzeigen"
End With
End If
Next Blatt
Dies funktioniert auch. Wenn ich aber nachträglich weitere Tabellenblätter ein- oder ausblende, sollten diese automatisch in die Liste übernommen werden. Wie kann ich das erreichen? Meine VBA-Kenntnisse sind leider nur gering.
mfg
volleybaerchen