Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 12:29:14
Alle ActiveX-Optionbuttons aus einem Groupname auf "Fal
10.05.2024 12:14:16
Darunterzellen addieren
10.05.2024 12:12:08
Code auf mehrere Button anwenden
10.05.2024 11:53:13
Wert aus Variablen in wenn-Formel nach Excel übergeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makros über Menüleiste aufrufen

Makros über Menüleiste aufrufen
JensF
Hallo Leute,
ich habe einen eigenen Menüpunkt mit vielen Menüunterpunkten. Diese sollen über .OnAction das selbe Makro aufrufen. Abhängig vom aufrufenden Menüunterpunkt soll das Makro dann unterschiedlich verzweigen.
Wie komme ich an die Info, welcher Menüpunkt das Makro aufgerufen hat? Bei aufrufenden Shapes gibt es ja Application.Caller, aber bei Menüs klappt das nicht.
Viele Grüße
Jens
AW: Makros über Menüleiste aufrufen
31.08.2009 09:15:39
JogyB
Hi.
Lass jeden Menüunterpunkt ein eigenes Makro aufrufen, das dann wieder das eigentliche Makro ausführt. An dem Punkt kannst Du den Namen des Menüunterpunktes übergeben.
Gruss, Jogy
AW: Makros über Menüleiste aufrufen
31.08.2009 09:40:37
JensF
Hi,
danke aber das kann ich so nicht machen. Das Menü wird dynamisch erstellt und hat sehr viele Unterpunkte.
Da finde ich es unzweckmäßig, zig aufrufende Makros vorzuhalten.
Grüße
Jens
AW: Makros über Menüleiste aufrufen
31.08.2009 09:47:14
Nepumuk
Hallo Jens,
über Application.CommandBars.ActionControl.... kommst du an das aufrufende Control. Du kannst auch Parameter über die OnAction - Eigenschaft übergeben. Oder die Parameter - Eigenschaft oder Tag - Eigenschaft.
Gruß
Nepumuk
Anzeige
OnAction mit Parameter: wie?
31.08.2009 10:16:03
JensF
Hi Nepumuk,
damit komme ich klar:
Application.CommandBars.ActionControl...
Trotzdem noch interesse halber: Wie kann ich über OnAction Paramter mitgeben?
Menüpunkt.Onaction = "Makro1","Paramter"
Menüpunkt.Onaction = "Makro1,Parameter"
klappt beides nicht.
Grüße, Jens
AW: OnAction mit Parameter: wie?
31.08.2009 10:41:57
Nepumuk
Hallo Jens,
Beispiel1:
''MENU_Activate_Sheet_By_Name "Tab_Development_Log"'
Beispiel2:
'MENU_Activate_Sheet_By_Name "Tab_Cockpit_OEs", "COCKPIT_OEs_7ETP_Aufwand_TL", "COCKPIT_OEs_7ETP_Aufwand_BR"'
Prozedurname fett Parameter kursiv. Der ganze String muss in Hochkomma stehen. Da du das im Code aber so nicht hinschreiben kannst (Hochkomma bedeutet ja Kommentar) musst du den String zusammenbasteln.
Gruß
Nepumuk
Anzeige
AW: OnAction mit Parameter: wie?
31.08.2009 22:40:47
JensF
Hi,
danke Dir. Ehrlich gesagt, das raffe ich nicht.
(Ist aber nicht so wichtig, mit .ActionControl.Tag habe ich die für mich optimale Lösung hinbekommen.)
Viele Grüße
Jens
:-)
AW: OnAction mit Parameter: wie?
31.08.2009 23:29:18
Uduuh
Hallo Jens,
sooo grob ist das doch nicht. 
Sub tt()
Dim myBar As CommandBar, myControl As CommandBarButton
Set myBar = CommandBars("Standard")
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton)
With myControl
.Style = msoButtonCaption
.Caption = "test"
.OnAction = "'" & "MySub 5" & "'"
End With
End Sub
Sub mySub(x)
MsgBox x ^ 2
End Sub
Für Text 
Sub tt()
Dim myBar As CommandBar, myControl As CommandBarButton
Set myBar = CommandBars("Standard")
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton)
With myControl
.Style = msoButtonCaption
.Caption = "test"
.OnAction = "'" & "MySub ""Hallo Jens""" & "'"
End With
End Sub
Sub mySub(x)
MsgBox x
End Sub
Gruß aus’m Pott
Udo

Anzeige
AW: OnAction mit Parameter: wie?
01.09.2009 23:42:36
JensF
Hi Udo,
ach so. Danke :-)
Viele Grüße
Jens
Hello Excel World...
02.09.2009 00:15:03
NoNet
Hey Jens,
und noch eine Variante zu Uduuhs Codebeispiel : Mehrere Menüpunkte in einem Array :
VBA-Code:
Sub StandardSymbolleisteErweitern()
    Dim myBar As CommandBar, myControl As CommandBarButton
    Dim myControl1 As CommandBarPopup
    Dim intT As Integer, arr
    arr = Array("Boris", "JensF", "NoNet", "Uduuh", "WF", "World...")
    Set myBar = CommandBars("Standard")
    Set myControl1 = myBar.Controls.Add(Type:=msoControlPopup, temporary:=True)
    myControl1.Caption = "My Excel World"
    For intT = LBound(arr) To UBound(arr)
        Set myControl = myControl1.Controls.Add(Type:=msoControlButton)
        With myControl
          .Style = msoButtonCaption
          .Caption = arr(intT)
          .OnAction = "'" & "MySub ""Hello " & arr(intT) & """" & " '"
        End With
   Next
End Sub
Sub mySub(x)
    MsgBox x
End Sub
Gruß, NoNet
PS : Das Array ist natürlich beliebig erweiterbar/reduzierbar und die (exemplarischen) Namen nach Belieben austauschbar ;-) - Nur damit sich niemand übergangen fühlt :-D
AW: Makros über Menüleiste aufrufen
JogyB

Hi.
Die andere Lösung ist natürlich schöner, aber was hielte Dich davon ab, die Makros dynamisch zu erstellen?
Gruss, Jogy
Anzeige
AW: Makros über Menüleiste aufrufen
31.08.2009 09:54:29
JogyB
Hi.
Die andere Lösung ist natürlich schöner, aber was hielte Dich davon ab, die Makros dynamisch zu erstellen?
Gruss, Jogy

300 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
2
4