|
Hallo miteinander, ich habe folgendes Problem. Ich habe diesen Code soweit erstellt und bin noch ziemlicher Anfänger, was VBA betrifft. Es wird bei mir immer eine Fehlermeldung angezeigt. Die Fehlermeldung ist folgendermaßen : Laufzeitfehler '13' : Typen unverträglich . Wenn ich die Debuggfunktionn verwende stoppt er bei dieser Zeile
Projektbeginn = CDate(Sheets("Projektsteuerung").Cells(i, "I").Value)
Nun die Frage an euch,ob mir jemand weiterhelfen kann.
Sub Erinnerungsmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strTo As String
Dim strSubject As String
Dim strBody As String
Dim Projektbeginn As Date
Dim Projektende As Date
Dim i As Integer
'Stelle eine Outlook-Verbindung her
Set OutApp = CreateObject("Outlook.Application")
'Gehe durch jede Zeile in der Tabelle
For i = 5 To Sheets("Projektsteuerung").Cells(Rows.Count, "A").End(xlUp).Row
'Hole das Start- und Enddatum des Projekts
Projektbeginn = CDate(Sheets("Projektsteuerung").Cells(i, "I").Value)
Projektende = CDate(Sheets("Projektsteuerung").Cells(i, "J").Value)
'Überprüfe, ob fünf Monate seit dem Projektbeginn vergangen sind
If DateDiff("m", Projektbeginn, Now) >= 5 Then
'Erstelle die E-Mail
Set OutMail = OutApp.CreateItem(0)
strTo = "blabla@blabla.net"
strSubject = "Erinnerung: Projekt von " & Sheets("Projektsteuerung").Cells(i, "B").Value & " läuft seit fünf Monaten"
strBody = "Hallo," & vbCrLf & vbCrLf & _
"Hiermit möchte ich euch erinnern, dass das Projekt von " & Sheets("Projektsteuerung").Cells(i, "B").Value & _
" seit fünf Monaten läuft.Es wäre nun an der Zeit das erste Feedbackgespräch zu vereinbaren." & vbCrLf & vbCrLf & _
"Mit freundlichen Grüßen," & vbCrLf & "Ihr Unternehmen"
'Füge die Empfängeradresse, den Betreff und den Text hinzu
With OutMail
.To = strTo
.Subject = strSubject
.Body = strBody
.Display 'E-Mail anzeigen
'.Send 'E-Mail sofort senden
End With
'Freigeben von Ressourcen
Set OutMail = Nothing
End If
Next i
'Beenden Sie die Outlook-Verbindung
Set OutApp = Nothing
End Sub
|