in meinen arbeitsmappen befinden sich bis zu 30 verschiedene blätter. damit ich sie nicht mühsam durch klicken suchen muss, möchte sie in einer combobox in der menüleiste sortiert anzeigen. auf der suche hier habe ich folgenden code gefunden:
Private Sub Workbook_open()
Dim oCbo As CommandBarComboBox
Dim wks As Worksheet
Dim iCounter As Integer
Call CmdDelete
With Application.CommandBars.Add("Worksheet Menu Bar")
Set oCbo = .Controls.Add( _
Type:=msoControlComboBox, before:=.Controls.Count)
End With
With oCbo
.Caption = "Monate"
.OnAction = "BlattAuswahl"
For iCounter = 0 To 11
.AddItem Format(DateSerial(1, iCounter + 1, 1), "mmmm")
Next iCounter
.ListIndex = 1
End With
End Sub
allerdings kriege ich beim öffen der arbeitsmappe immer einen laufzeitfehler 5 ungültiger prozeduraufruf oder argument bei der zeile with application.commandbar ...
warum? oder gibt es eine andere möglichkeit, bequem auf soviele blätter innerhalb einer mappe zuzugreifen.
herzlichen dank
manuela