Excel Zelleninhalt als Text in Email

Guten Morgen zusammen,
ich habe folgende Aufgabenstellung:
Meine Mitarbeiter schreiben jeden Tag eine kurze Zusamemnfassung der Spätschicht per Email.
Ich möchte, dass die Mitarbeiter diese Informationen in eine Exceltabelle eintragen, damit wir eine Art "Wissenspeicher" haben.
Ich möchte jedoch nicht auf die Info per Mail verzichten.
Das Makro soll auf Knopfdruck prüfen welche Zeilen zum heutigen Datum gehören. Diese Informationen dann in die Email kopieren.
Es kann sein, dass es mehr als eine Zeile pro Tag gibt, daher ist die Datumsprüfung notwendig.
Eine Beispieldatei ist hier abgelegt.
https://www.herber.de/bbs/user/106984.xlsx
Ich habe es schon mit dem Makrorekorder probiert, doch leider hat das nicht geholfen.
Würde mich sehr freuen wenn jemand hier eine gute Lösung hat.
Beste Grüße
Sven

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SendMyMail() Dim zelles As Range Dim bereichs As Range Dim datum As Date Dim ws As Worksheet Set ws = Sheets("Schichtbericht") Set bereichs = ws.Range("A2:A" & ws.Cells(1048576, 1).End(xlUp).Row) Set zelles = bereichs.Find(what:=Date, lookat:=xlWhole, LookIn:=xlValues) If zelles Is Nothing Then MsgBox "Datum nicht gefunden": Exit Sub Else MsgBox "Datum befindt sich in Zelle" & zelles.Address Set objOL = CreateObject("Outlook.Application") Set objMail = objOL.CreateItem(0) ws.Range("A" & zelles.Row & ":G" & zelles.Row).Copy With objMail .To = "max.muster@test.de" .Subject = "Betreff" .GetInspector().WordEditor.Range.Paste .Display End With Set objOL = Nothing End If End Sub

Sub SendMyMail() Dim zelles As Range Dim zellesL As Range Dim bereichs As Range Dim datum As Date Dim ws As Worksheet Set ws = Sheets("Schichtbericht") Set bereichs = ws.Range("A2:A" & ws.Cells(1048576, 1).End(xlUp).Row) Set zelles = bereichs.Find(what:=Date, lookat:=xlWhole, SearchDirection:=xlNext) Set zellesL = bereichs.Find(what:=Date, lookat:=xlWhole, SearchDirection:=xlPrevious) If zelles Is Nothing Then MsgBox "Datum nicht gefunden": Exit Sub Else MsgBox "Datum befindt sich in den Zellen " & Range(zelles.Address, zellesL.Address).Address Set objOL = CreateObject("Outlook.Application") Set objMail = objOL.CreateItem(0) ws.Range("A" & zelles.Row & ":G" & zellesL.Row).Copy With objMail .To = "max.muster@test.de" .Subject = "Betreff" .GetInspector().WordEditor.Range.Paste .Display End With Set objOL = Nothing End If End Sub

So könnte es gehen Sven

Sub SendMyMail()
Dim zelles As Range
Dim zellesL As Range
Dim bereichs As Range
Dim datum As Date
Dim ws As Worksheet
Dim wsNew As Worksheet
Set ws = Sheets("Schichtbericht")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set bereichs = ws.Range("A2:A" & ws.Cells(1048576, 1).End(xlUp).Row)
Set zelles = bereichs.Find(what:=Date, lookat:=xlWhole, SearchDirection:=xlNext)
Set zellesL = bereichs.Find(what:=Date, lookat:=xlWhole, SearchDirection:=xlPrevious)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden": Exit Sub
Else
MsgBox "Datum befindt sich in den Zellen " & Range(zelles.Address, zellesL.Address).Address
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Set wsNew = Worksheets.Add
With wsNew
.Name = "Neu" & Format(Now, "yyyymmdd_hhmmss")
.Move after:=Sheets(Sheets.Count)
End With
ws.Range("A1:G1").Copy wsNew.Range("A1")
ws.Range("A" & zelles.Row & ":G" & zellesL.Row).Copy wsNew.Range("A2")
wsNew.Columns("A:G").EntireColumn.AutoFit
wsNew.UsedRange.Copy
With objMail
.To = "max.muster@test.de"
.Subject = "Betreff " & Now '-- Oder Date dann ist nur das Datum und keine Zeit
.GetInspector().WordEditor.Range.Paste
.Display
End With
wsNew.Delete
Set objOL = Nothing
Set wsNew = Nothing
Set ws = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Excel Zelleninhalt als Text in Email

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Zelleninhalt als Text in Email

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread