per Symbolleiste Arbeitsblätter aufrufen

17/04/2008 - 10:17 von Thomas Unruh | Report spam
Moin!

Ich steh gerade auf dem Schlauch und könnte etwas Hilfe gebrauchen.
Ich möchte eine Symbolleiste erstellen über die ich zu Arbeitsblàtter
wechsel kann.

Dies funktioniert gut, aber woher weis das Makro welches Blatt
gemeint ist bzw. welcher Button gedrückt wurde?

Const Symbolleistenname = "TU-EV-Leiste"

Sub Symbolleiste_erstellen_Text()
On Error Resume Next
Dim CB As CommandBar
Dim CBC As CommandBarButton
Dim Blatt As Worksheet

Set CB = Application.CommandBars(Symbolleistenname)
Symbolleiste_löschen ' ist klar funkt, nun nicht aufgeführt
Set CB = Application.CommandBars.Add(name:=Symbolleistenname, _
temporary:=False, Position:=msoBarTop)

For Each Blatt In Worksheets
If Blatt.name Like "EV_*" Then

Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = Blatt.name
.OnAction = "MachWas" ' & "(" &
Blatt.name & ")" hat nicht geholfen :-(
.Style = msoButtonCaption
End With
End If
Next

CB.Visible = True
End Sub


Sub MachWas()
'hier müsste was hin um rauszufinden zu welchem Blatt es geht
MsgBox "Da bin ich", vbExclamation
End Sub
 

Lesen sie die antworten

#1 thomas.ramel
17/04/2008 - 10:45 | Warnen spam
Grüezi Thomas

On 17 Apr., 10:17, Thomas Unruh wrote:

Ich möchte eine Symbolleiste erstellen über die ich zu Arbeitsblàtter
wechsel kann.



Schau dir alternativ mal das folgende AddIn an - ich habe die
Symbolleiste rechts am Fenster angedockt und kann darüber navigieren.

http://www.tushar-mehta.com/excel/s...b_nav.html

Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Ähnliche fragen