Makro anpassen-Tabelle senden
14.09.2007 21:29:00
marko
ich melde mich heute schon zweites mal, weil ich dringend hilfe brauche.
Ich glaube das ich meine Problematik nicht sauber erklärt (Danke Thorsten) habe und deshalb - neue anlauf=neue glück.?
wir haben eine Excel Datei (20 Tabellen), diese wird täglich aktuallisiert.
Kurz vor dem Feierabend müssen wir eine Tabelle immer an unsere Chef senden.
Bis jetzt war das automatisieret alles per Knopfklick, in dem makro ist nur eine Empfänger deffiniert , was auch alles problemlos funktioniert.
Sub Blatt_senden_produktionmontag()
'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.
Sheets("ProduktionMontag").Copy
On Error Resume Next
ActiveWorkbook.SendMail Recipients:="xxxxxx", Subject:="Betreff"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
If Err.Number > 0 Then MsgBox "Mail wurde nicht gesendet!!", , " xxxxxx !!"
On Error GoTo 0
End Sub
Seit Heute muss ich die Tabelle am drei Empfänger senden.
Frage: wie kann ich unsere Makro anpassen, so das diese Tabelle statt an ein in Zukunft an drei Empfänger gesendet wird.?
Habt Ihr bitte ein Beispiel oder iergend ein tipp, dass ich nicht viel vom VBA verstehe währe sehr dankbar für jede hilfe.
gruss
marko