Hallo @smirno,
irgendwie komme ich hier nicht weiter, versuche schon seit einigen Tagen auf das gewünschte Ergebnis zu kommen aber leider vergebens.
Habe dein Vorschlag mal angeschaut und versucht daraus meine eigenes Script zu erstellen, vergebens. Hierzu reichen meine Kenntnisse leider nicht aus.
Anyway, mein Script sieht folgend aus:
Dim strMail As String
Dim strCC As String
Dim strBetreff As String
Dim strMailBody As String
Dim SigString As String
Dim rg As Range 'neu!!
strMail = „[email protected]“
strCC = „[email protected]“
strBetreff = „Achtung!! Meßmittel muss zur Kalibrierung“
strMailBody = „Sehr geehrter Herr XYZ das Meßmittel mit der Identnummer xyz muss zur Kalibrierung“
Set rg = Intersect(Sheets(Prüfmittel).Columns§, Sheets(Prüfmittel).UsedRange) 'Ggf. hier das Tabellenblatt anpassen
If Not rg Is Nothing Then ’ Sind in Spalte D Markierungen vorhanden?
For Each rg In rg 'Wenn ja, dann abarbeiten
'Wenn Zelle nicht leer ist, dann gleiche Zeile, Spalte A zum Emailtext zufügen
If Not IsEmpty(rg.Value) Then strMailBody = strMailBody & rg.Offset(0, -3).Text & vbCrLf
Next rg
End If
Call SendeMail(strMail, strCC, strBetreff, strMailBody)
End Sub
jetzt meine Liste:
Was muss ich hier ändern? oder wie komme ich zum gewünschten Resultat?
Danke schon einmal für deine Hilfe.