Workbook_Open() startet nicht...
27.02.2020 11:57:25
Marc
ich möchte gerne, dass wenn sich eine Excel Datei öffnet der Code automatisch ausführt.
Dafür habe ich sowohl unter Modul1 als auch unter Tabelle1 (Auswertung) folgenden Code eingefügt:
Private Sub Workbook_Open()
Dim letztezeile As Integer
Dim i As Integer
Dim objOutlook As Object
Dim objMail As Object
Sheets("Auswertung").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Prüfung Tour korrekt
For i = 2 To letztezeile
If Range("L" & i).Value = "Falsch" Then
If Range("N" & i).Value = "1" Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Range("J" & i).Value
.Subject = "Die Tour ist nicht korrekt!! Bitte prüfen Sie folgenden Beleg " & Range( _
"B" & i).Value
.Body = "Bitte prüfen!!"
.Send
End With
End If
End If
Next
ActiveWorkbook.Save
Application.Quit
End Sub
Leider tut sich beim Öffnen der Datei mal gar nichts. Wenn ich den Code (ich habe den ebenfalls unter einer normalen Prozedur angelegt) starte, tut er, was er soll.....
Was mache ich falsch?
Habe die Datei zu den Vertrauenswürdigen Speicherorten hinzugefügt und die Bearbeitung aktiviert...
Lieben Gruß
Marc