Office: (Office 2013) Makro über Wenn-Befehl starten

Hallo Forum,
wie kann man bitte ein Makro mit einen Wenn-Befehl starten.
Also zum Beispiel, wenn A1>0 dann starte Makro1.

Danke für Eure Hilfe.


grendel

:)

 

Über wenn Makro starten
Du musst dazu einen Umweg anlegen.
Die WENN-Funktion lautet z.B.
=WENN(A1>10;MakroStart();"Nix")
Die Wenn-Bedingung kann kein Makro starten, aber eine Funktion ausführen. Diese Funktion kann wiederum ein Makro aufrufen.
Die Funktion ist so aufgebaut und ruft das abhängige Makro auf:
Function MakroStart()
Application.Volatile
MakroStart_Makro
End Function
Sub MakroStart_Makro()
MsgBox ("TuT")
End Sub
von Ramses (Rainer)

oder
Function MAKRO(strMakro As String) As String
Select Case (strMakro)
Case Is = "XY"
XY
Case Is = "Test2"
Test2
Case Else
strMakro = "kein Makro vorhanden"
End Select
MAKRO = strMakro
End Function

Sub XY()
MsgBox "hier kommt Makro XY"
End Sub

Sub Test2()
MsgBox "hier kommt Makro Test2"
End Sub
In einer Zelle:
=MAKRO(WENN(A1=0;"XY";A1))
von Melanie Breden

 

Großen Dank, Hajo,
schaue ich mir sehr gerne in Ruhe an.

Grüße aus Plattling.

grendel

 

Hallo Hajo,

ich hoffe mal der Thread ist noch aktiv.
Ich habe das Problem das mein Makro nicht über die WENN Funktion zu starten ist.
Ich sitze nun schon einige Stunden über diese Sache und finde einfach keine Lösung.
Beschreibung was ich machen will:
In Tabellenblatt1 möchte ich mit Hilfe eines Kontrollkästchen ein Bild in Zelle O11 aus Tabellenblatt2 A3 einfügen.

Dazu habe ich in Tabellenblatt2, über das Kontrollkästchen die Bedingung FALSCH/WAHR in Zelle B3 gesetzt.
Nun wollte ich über eine WENN Funktion die Makro Function starten.
Formel 1: =WENN(B3="wahr";Bild_1();"nicht gestartet")
Formel 2: =WENN(C3=1;Bild_1();"nicht gestartet")
Da Formel 1 nicht funktionierte musste ich den Weg über Formel 2 mit Hilfe von Formel =WENN(B3=WAHR;1;0) gehen.

Ich hoffe das ist bis dahin verständlich.

Mein Makro sieht wie folgt aus:
Code:

Der Code steht in einen Modul1.

Leider funktioniert das ganze nicht wenn ich das Kontrollkästchen aktiviere.
Wenn ich das Makro von Hand starte funktioniert es.

Kannst du mir sagen wo mein Fehler liegt?

Vielen Dank schon mal im Voraus.

Gruß,
Robert