es funktioniert nicht

Sub Active_Mail_Senden()" per extras-makro-makros-ausführen anclicke funzt es , aber wenn ich in a1 160 eingebe nicht was ist da falsch
Bei überschreiten eines Wertes eine Mail mit Outlook senden
Diese Funktion ist in EXCEL und von MS natürlich nicht vorgesehen.
Es geht trotzdem,... wenn auch über einen kleinen Umweg :-).
=WENN(A1>150;Active_Mail();"")

Function Active_Mail()
'Über eine 

Function ein Mail auslösen
Call Active_Mail_Senden
End Function


 


Sub Active_Mail_Senden()
ActiveWorkbook.SendMail "dein.name@dein.provider", "Wert überschritten"
End Sub


danke für helps

gruss

jürg