Namen und Funktionen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) If intersect(target, Range("A1")) is nothing or target.cells.count > 1 then exit sub If Target.Value = "Fred" Then MsgBox ("Dies ist ein Test") End If End Sub

Hallo Tino,
ich erinnere mich leider nicht mehr an alles, denn sonst bräuchte ich den Artikel ja nicht mehr. Man erstellt als erstes eine eigene Funktion. Anschließend definiert man einen Namen und gibt als Bezug statt einer Zelle bzw. einem Bereich den Makronamen an. Wenn später in einem anderen Makro auf den Namen zugegriffen wird - ich glaube über Application.Names() - , dann wird dort die Funktion aufgerufen.
Leider funktioniert das Ganze bei mir nicht richtig. Manchmal wird die Funktion 2 mal gestartet, in einem anderen Beispiel garnicht, obwohl der Code ähnlich aufgebaut ist. Ich wollte in dem Thread nocheinmal nachlesen, ob irgendwelche weiteren Randbedingungen erfüllt sein müssen o.ä.
M. Born

Hallo,
für was dies gut sein soll.
Schreibe Dein Makro doch mit Private Sub , dann sind diese auch nicht unter Makros gelistet.
Wenn sich dieses Makro im gleichen Modul befindet kannst Du es mit Call aufrufen.
Befindet es sich in einem anderen Modul, rufe es mit Application.Run
Möchtest Du alle Makros in diesem Modul nicht angezeigt bekommen,
schreibe in den Kopf Option Private Module, dann kannst Du auch auf Private Sub verzichten und diese auch mit Call aufrufen.
Beispiel 1:
kommt als Code in Modul1

Option Explicit 
 
Sub Beispiel() 
 Application.Run "Modul2.TestMakro" 
End Sub

kommt als Code in Modul2

Option Explicit 
 
Private Sub TestMakro() 
 MsgBox "TestMakro gestartet" 
End Sub

Beispiel 2:
kommt als Code in Modul1

Option Explicit 
 
Sub Beispiel() 
Call TestMakro 
End Sub

kommt als Code in Modul2

Option Explicit 
Option Private Module 
 
Sub TestMakro() 
 MsgBox "TestMakro gestartet" 
End Sub

Gruß Tino

Sub MenuErstellen() Dim MenuMakros As CommandBarControl Dim MB As CommandBarControl Dim Pos& ' erstellt einen Menüentrag in Zeile 1 Application.CommandBars(1).Protection = msoBarNoProtection Pos = Application.CommandBars(1).Controls.Count - 1 Set MenuMakros = CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=Pos, _ temporary:=True) MenuMakros.Caption = "My-Macros" 'Eintrag eines Makros Set MB = MenuMakros.Controls.Add(Type:=msoControlButton) With MB .Caption = "Dies ist ein von mir erstelltes Makro" .OnAction = "MakroTest" .BeginGroup = True .Style = msoButtonIconAndCaption End With End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread