Menue - Makro editieren
23.10.2006 10:41:54
roland_k
brauche mal wieder Hilfe (wahrscheinlich triviale sache:-))
ich habe folgenden code:
Private Sub CommandButton1_Click()
Dim cBar As CommandBar
Dim cBtn As CommandBarButton
Dim wks As Worksheet
'Menü löschen
On Error Resume Next
Application.CommandBars("Neues Menü").Delete
On Error GoTo 0
'Menü erstellen
Set cBar = Application.CommandBars.Add("Neues Menü")
For Each wks In ThisWorkbook.Worksheets
'Buttons erstellen
Set cBtn = cBar.Controls.Add(Type:=msoControlButton)
With cBtn
.Style = msoButtonCaption
.Caption = wks.Name
.OnAction = "test"
.Width = 50
End With
Next
cBar.Visible = True
Set cBtn = Nothing
Set cBar = Nothing
End Sub
in ein Modul habe ich
Sub test()
was muss ich hier reinschreiben dass Tabelle1, tabelle2 oder tabelle3 aktiviert wird
End Sub
danke wenn sich jemand erbarmt:-(
gruss roland_k
Motto: "einfach wie möglich, kompliziert wie nötig"
Anzeige