Makros
06.09.2007 16:14:00
marko
habe eine Frage:
wie kann ich mein da unten stehende makro erweitern, so das auch BETREFF in der makro vordeffiniert ist.
z.B Produktionsdaten für Monat XXX
Sub Blatt_senden_produktiondienstag()
'Die Routine kopiert Tabelle in eine neue Arbeitsmappe,
'versendet diese und schließt sie anschließend ohne Speicherung'
' wenn Benutzer Nein_Button klickt dann gibt's Hinweiss=MsgBox dass die Tabelle'
' nicht gesendet ist, sons währe eine Fehlermeldung angezeigt'
Sheets("ProduktionDienstag").Copy
On Error Resume Next
ActiveWorkbook.SendMail ("xxxxxxxxxxxxx")
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
If Err.Number > 0 Then MsgBox "Mail wurde nicht gesendet!!", , " Produktionsdaten !!"
On Error GoTo 0
End
Sub
Gruss und Danke in Voraus
marko