Hallo Gast,

hab gestern abend noch deinen code rein gemacht und zwar den ersten damit es generell erstmal ne email gibt wenn das programm auf geht, das datum 27.01. war nur zum testen damit ich seh ob auf ne email ankommt. jetzt ist es aber so das ich keine email mehr bekomme, hab wohl einen fehler drin und find ihn nicht. könntest muir no  Private Sub Workbook_Open()



With Sheets(1)

Startmaske.Cells(8, 7) = Date


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'FA1'

    'Email Erinnerung für die Kohlenprüfung in den FA`S

If Date = ("27.01" & Year(Date)) Then

 
  Set olApp = CreateObject("Outlook.application")
    Set olMyItem = olApp.CreateItem(0)
    With olMyItem
        .To = ""
        .CC = ""
        .Subject = "Kohlenmeßen"
        .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:"
        .Send
       
    End With
 
Else

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 'FA2 und FA4'

    'Email Erinnerung für die KOhlenprüfung in den FA`S

If Date = ("01.03" & Year(Date)) Then
 

  'FA1'
  Set olApp = CreateObject("Outlook.application")
    Set olMyItem = olApp.CreateItem(0)
    With olMyItem
        .To = ""
        .CC = ""
        .Subject = "Kohlenmeßen"
        .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:"
        .Send
        End With
       
 End If
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'FA3 und FA5'
 
   'Email Erinnerung für die KOhlenprüfung in den FA`S

If Date = ("01.05" & Year(Date)) Then
 
 
  'FA1'
  Set olApp = CreateObject("Outlook.application")
    Set olMyItem = olApp.CreateItem(0)
    With olMyItem
        .To = "I"
        .CC = ""
        .Subject = "Kohlenmeßen"
        .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:"
        
        .Send
        

End With

Else

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'FA1'

    'Email Erinnerung für die KOhlenprüfung in den FA`S

If Date = ("01.07" & Year(Date)) Then
 
  'FA1'
  Set olApp = CreateObject("Outlook.application")
    Set olMyItem = olApp.CreateItem(0)
    With olMyItem
        .To = ""
        .CC = ""
        .Subject = "Kohlenmeßen"
        .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:"
        .Send
    
    End With
    
    Else
    
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
'FA2 und FA4'
 
    'Email Erinnerung für die KOhlenprüfung in den FA`S

If Date = ("01.09" & Year(Date)) Then
 

  'FA1'
  Set olApp = CreateObject("Outlook.application")
    Set olMyItem = olApp.CreateItem(0)
    With olMyItem
        .To = "I"
        .CC = ""
        .Subject = "Kohlenmeßen"
        .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:"""
        .Send
End With

Else

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'FA3 und FA4'

    'Email Erinnerung für die KOhlenprüfung in den FA`S

If Date = ("01.11" & Year(Date)) Then
 

  'FA1'
  Set olApp = CreateObject("Outlook.application")
    Set olMyItem = olApp.CreateItem(0)
    With olMyItem
        .To = ""
        .CC = ""
        .Subject = "Kohlenmeßen"
        .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:"
        
        .Send
        
   
 
End With



End If
End If
End If
End If
End If
End With
End Subch mal helfen.