Re: Taskleiste automatisch im Hintergrund
05.03.2003 15:40:05
Thomas Raschen
Hallo,ich habe zwar keine Lösung für dein Problem, aber dafür einen anderen Ansatz. Wenn Du die folgenden 2 Subs bei Dir einbaust, so bekommst du mit einem Rechtsklick ein Kontextmenue erstellt, welches Dir alle Deine Arbeitsblätter zur Auswahl anbietet. So hast Du viel mehr Arbeitsblätter auf einmal zur auswahl als mit der Leiste in Excel. Versuche es doch einfach mal, klappt echt super.
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim wks As Worksheet
Cancel = True
Application.ScreenUpdating = False
aktabb = ActiveSheet.Index
Call ArbeitsblätterSortieren
Sheets(aktabb).Select
Call CmdDelete
Set oBar = Application.CommandBars.Add("Register", msoBarPopup)
For Each wks In ThisWorkbook.Worksheets
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = wks.Name
.Style = msoButtonCaption
.OnAction = "mnuAuswahl"
End With
Next wks
Application.ScreenUpdating = True
oBar.ShowPopup
End Sub
Sub CmdDelete() 'Bund/Land
On Error GoTo ERRORHANDLER
Application.CommandBars("Register").Delete
ERRORHANDLER:
End Sub
Gruß
Thomas