Sheet versenden mit 1904 DRINGEND
05.10.2005 11:51:39
Michael
ich bin mit meinem Problem von gestern noch nicht ganz durch. Da ich aus einem Worbook (Diensplan) einen Monat per Email versenden möchte habe ich folgendes Makro geschriebn. Das funktioniert auch. Ich habe nur das Problem da ich mit der 1904 Funktion arbeite, das beim Empfänger diese Funktion nicht eingestellt ist. Gestern hat mir Erich netter weise ein Makro geschrieben. Damit komme ich aber nur bedingt weiter. Da ich ja nur ein Tabellenblatt aus dem Workbook versende, würde ich das Markro aus "dieser Arbeitsmappe" nicht mit versenden.
Ich hoffe ihr könnt mir weiterhelfen.
Da ich ziemlich unter Zeitdruck stehe, bin ich über jeden Ansatz mehr als dankbar.
Gruß
Michael
Sub Blatt_senden()
Application.ActiveSheet.Copy
ActiveWorkbook.SendMail "hedrottm@lwl527x10.wkfp.lwl", "Dienstplan"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Makro von Erich
Private Sub Workbook_Open()
If Not ThisWorkbook.Date1904 Then
If MsgBox("Für die Arbeit mit dieser Mappe ist das 1904-Datumsformat" _
& " notwendig. Soll auf dieses Format umgestellt werden?", _
vbYesNo + vbQuestion) = vbYes Then
ThisWorkbook.Date1904 = True
End If
End If
End Sub