dieses Problem hatte ich gestern schon einmal im Forum und ein Add-In bekommen. Wie ich beim Testen nun leider feststellen musste, werden in dem Popup leider alle Tabellenblätter angezeigt und nicht wie von mir gewünscht nur die sichtbaren. Deshalb hier noch einmal meine Frage:
Ich habe noch ein Problem mit meiner eigenen Menüleiste. In einem Popup-Feld sollen alle eingeblendeten (sichtbaren) Tabellenblätter angezeigt werden. Dazu habe ich folgenden Code erstellt, der in Workbook_activate 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
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 bzw. daraus entfernt werden. Wie kann ich das erreichen? Meine VBA-Kenntnisse sind leider nur gering.
mfg
volleybaerchen