befehl uber menüeintrag ausfuehren ??

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: befehl uber menüeintrag ausfuehren ?? von: roland_k
Geschrieben am: 06.02.2005 08:15:29

hi guten morgen

habe gerade den vorherigen beitrag von ali gelesen..

habe problem wie ich einem eintrag ne anweisung gebe

menü heisst z b eintragen

im menue steht heute, morgen, gestern usw.

nu will ich dem eintrag "heute" beibringen dass dieser beim anklicken z. b.

A1 und A2 addiert und in zelle A5 das ergebniss steht

einfach dem eintrag "heute" ein makro zu ordnen ne msgbox erscheine lassen o ä

hm ein kleines beispiel wäre hilfreich wenn sich jemand die zeit nehmen koennte wäre ich euch dankbar

danke im voraus

gruss roland_K

Bild


Betrifft: AW: befehl uber menüeintrag ausfuehren ?? von: andre
Geschrieben am: 06.02.2005 08:30:00

Hallo Roland,
was das Menü aufrufen soll steht bei OnAction


Bild


Betrifft: AW: befehl uber menüeintrag ausfuehren ?? von: Josef Ehrensberger
Geschrieben am: 06.02.2005 08:43:38

Hallo Roland!

Ein Beispiel!


      
Option Explicit

Sub newMenu()
Dim cBar As CommandBar
Dim cBtn As CommandBarButton
Dim wks As Worksheet

delNewMenu

'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 = 
"Activate_Worksheet"
   .Width = 50
   
End With
Next

cBar.Visible = 
True
Set cBtn = Nothing
Set cBar = Nothing
End Sub

Sub delNewMenu()
'Menü löschen
On Error Resume Next
Application.CommandBars(
"Neues Menü").Delete
On Error GoTo 0
End Sub

Sub Activate_Worksheet()
On Error Resume Next
Worksheets(Application.CommandBars.ActionControl.Caption).Activate
On Error GoTo 0
End Sub 


     Code eingefügt mit Syntaxhighlighter 3.0



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: finde nicht wo der befehl ausfüehrt? von: roland_k
Geschrieben am: 06.02.2005 10:36:41

hi sepp danke

problem ist nicht menue erstellen sonder dem eintrag

heute ...z. das addieren von A1 und A2 zuordnen und in A3 z. ergebniss schreiben

danke gruss roland


Bild


Betrifft: .OnAction = "deinMakro" ! o.T. von: Josef Ehrensberger
Geschrieben am: 06.02.2005 10:44:49

Gruß Sepp


Bild


Betrifft: AW: .Brille gesäubert :::schäm..danke von: roland_k
Geschrieben am: 06.02.2005 11:50:18

sorry sollte nicht vorkommen

in antwort oberhalb war schon beantwortet ...

danke nun kann ich anfangen .-))

bin bald fertig mit der anwendung

gruss roland

PS: auch heuchler sterben ,,:-))


 Bild

Beiträge aus den Excel-Beispielen zum Thema "befehl uber menüeintrag ausfuehren ??"