es funktioniert nicht
25.01.2005 08:49:06
Jürg
wenn ich das "
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