Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung von Stringteilen
05.07.2022 14:34:35 Lukas
Solved
05.07.2022 17:29:20 Gast01233
Solved
06.07.2022 06:26:46 Gast65284
Solved
06.07.2022 22:58:40 Gast53972
NotSolved

Ansicht des Beitrags:
Von:
Lukas
Datum:
05.07.2022 14:34:35
Views:
130
Rating: Antwort:
 Nein
Thema:
Auswertung von Stringteilen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung von Stringteilen
05.07.2022 14:34:35 Lukas
Solved
05.07.2022 17:29:20 Gast01233
Solved
06.07.2022 06:26:46 Gast65284
Solved
06.07.2022 22:58:40 Gast53972
NotSolved