VBA Überprüfung bei schließen der Arbeitsmappe

Hallo Zusammen,
in meiner Arbeitsmappe möchte ich einen Wert (in untersch. Tabellenblättern - je nach dem wo sich der Nutzer gerade befindet, der Wert selbst steht immer in der Zelle AH45) beim schließen der Arbeitsmappe überprüfen.
Bei erfolgreicher Überprüfung (größer als 5%) soll das Makro SUB SendNotesMail() gestartet werden (welches manuell angesteuert ohne Probleme läuft)
Das dafür notwendige Makro zur Überprüfung beim schließen habe ich programmiert aber leider läuft es noch nicht wie geplant:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet: Set wks = ActiveSheet
If wks.Cells(46, 34).Value > 0.05 Then
Call SendNotesMail
End If
End Sub

Ich hoffe jemand kann mir weiterhelfen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeClose(Cancel As Boolean) test = Cells(1, 1).Value If Cells(1, 1).Value > 0.05 Then Call SendNotesMail End If Cancel = True End Sub Private Sub SendNotesMail() MsgBox "Geht doch!" End Sub

Hallo Marco,
kann die Datei im Moment nicht hochladen.
Anbei der ganze Code, evtl. kannst du da schon etwas erkennen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet: Set wks = ActiveSheet
If wks.Cells(46, 34).Value > 0.05 Then
Call SendNotesMail
End If
End Sub

Sub SendNotesMail()
Dim wks As Worksheet: Set wks = ActiveSheet
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim Recipient As Variant
Dim Signature As String
Dim rtitem
Dim EmbedObj As Object
Dim AttachME As Object
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.CREATEDOCUMENT
Recipient = "Beispiel@beispiel.de"
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ""
MailDoc.Subject = "Meldegrenze f?r " & wks.Cells(3, 5) & " " & wks.Cells(4, 5) & " ?berschritten"
Signature = Maildb.GETPROFILEDOCUMENT("CalendarProfile").GETITEMVALUE("Signature")(0)
Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
With rtitem
.APPENDTEXT ("Die Meldegrenze des " & wks.Cells(3, 5) & " " & wks.Cells(4, 5) & " wurde ?berschritten. Die GFZ liegt bei " & wks.Cells(46, 34) * 100 & "%")
.ADDNEWLINE (2)
Call .EMBEDOBJECT(1454, "", "C:\Eigene Dokumente\Makro\Test1.xls")
.ADDNEWLINE (2)
.APPENDTEXT Signature
End With
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
End Sub

'In DieseArbeitsmappe schreiben Private Sub Workbook_BeforeClose(Cancel As Boolean) Call SubImModul 'Cancel = True ist zum Test, die Mappe kann nicht geschlossen werden! 'Wenn der Code richtig funktioniert, dann False setzen Cancel = True End Sub 'Ins Modul schreiben Private Sub SubImModul() test = Cells(1, 1).Value If Cells(1, 1).Value > 0.05 Then Call SendNotesMail End If End Sub 'Ins Modul schreiben Private Sub SendNotesMail() MsgBox ActiveWorkbook.Name & vbLf & ActiveSheet.Name End Sub

Beliebteste Forumthreads (12 Monate)

VBA Überprüfung bei schließen der Arbeitsmappe

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