Ok. Startmaske.cells sagt mir aber nichts. Gehe davon aus, dass es ein Bereichsname ist oder ein Verweis auf ein Worksheet, der extra vergeben wurde.
Bei der Mail, hast du aber das datum also den 27.01. geändert auf das von heute!? Ansonsten gehe mal bitte in de VBE und dann den Code einzeln mit F8 durch. Dann siehst du, wo Fehler sind (bei mir zB hängt es schon am Startmaske.cells) bzw. wie der Code verläuft (bei den Vergleichen). Vorher lief das versenden ja mit dem selben Code!?
Und zweite Möglichkeit. Die Makros sind aber aktiviert? Du startest den Code ja automatisch beim Öffnen.
Wenn wir es dann hinbekommen haben, würde ich an deiner Stelle den Code etwas einkürzen. Brauchst du bei Änderungen nicht so viel ändern.
Könnte dann so wie unten aussehen. Wobei prüf mal, ob du Sheets am Anfang wirklich brauchst und ob Startmaske auh was macht.
VG
With Sheets(1)
Startmaske.Cells(8, 7) = Date
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'FA1'
'Email Erinnerung für die Kohlenprüfung in den FA`S
Set olApp = CreateObject("Outlook.application")
Set olMyItem = olApp.CreateItem(0)
With olMyItem
.To = ""
.CC = ""
.Subject = "Kohlenmeßen"
If Date = ("27.01" & Year(Date)) Then
.Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA1 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
Else
'FA2 und FA4'
If Date = ("01.03" & Year(Date)) Then
.Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA2 und FA4 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
Else
'FA3 und FA5'
If Date = ("01.05" & Year(Date)) Then
.Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA3 und FA5 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
Else
'FA1'
If Date = ("01.07" & Year(Date)) Then
.Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA1 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
Else
'FA2 und FA4'
If Date = ("01.09" & Year(Date)) Then
'FA1'
.Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA2 und FA4 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"""
Else
'FA3 und FA4'
If Date = ("01.11" & Year(Date)) Then
.Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA3 und FA5 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
End If
End If
End If
End If
End If
End If
.Send
End With 'für olMyItem
End With 'für sheets(1)
End Sub
|