Hallo liebes Forum, ich habe ein Problem beim Erstellen einer Auswertedatei mit mehreren Makro. Die anderen Makro funktionieren ohne Probleme nun möchte ich aber die Vorgänge nach Jahren auswerten. Ich habe ab der Zeile H2 Daten in folgendem Format DD:MM:JJJJ hh:mm:ss und möchte dass die gleichen Jahre gezählt werden. In der E-Mail soll dann so etwas stehen wie: 10 Vorgänge bei dem Kunden ..... davon 2 aus 2022, 4 aus 2021 und 4 aus 2018. Der Code zum Versenden der E-Mail ist hier

Sub Sende_Mail()

    Dim objOutlook As Object
    Dim objMail As Object

    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    strhtml = strhtml & "Sehr geehrter Herr Bormet, <br><br>"
    
    strhtml = strhtml & "In der KW" & " " & Range("N2") & " " & "waren" & " " & Range("O22") & " " & "offene 8D-Reporte im System.<br><br>"
    strhtml = strhtml & "Die Verteilung auf die einzelnen Kunden sieht wie folgt aus: <br>"
    strhtml = strhtml & "   " & Range("O24") & " " & "Vorgänge bei dem Kunden" & " " & Range("N24") & ",<br>"
    strhtml = strhtml & "   " & Range("O25") & " " & "Vorgänge bei dem Kunden" & " " & Range("N25") & ",<br>"
    strhtml = strhtml & "   " & Range("O26") & " " & "Vorgänge bei dem Kunden" & " " & Range("N26") & ",<br>"
    strhtml = strhtml & "   " & Range("O27") & " " & "Vorgänge bei dem Kunden" & " " & Range("N27") & ",<br><br>"
    
    strhtml = strhtml & "Mit freundlichen Grüßen <br><br>"
    strhtml = strhtml & "Kathrin Bruchmann <br><br>"
    
    With objMail
    
       .To = ""
       .Subject = "Offene 8D-Reporte"
       .htmlbody = strhtml
       .Send
       
    End With

End Sub

Vielen Dank für jede Hilfe LG Lukas