ich habe zwar ein makro mal zugeschickt bekommen, welches eine tabelle als temp. datei ablegt und somit das aktive blatt versendet. ich benötige jedoch eine erweiterte version, bei welcher ich mehrere blätter einer datei auswählen und gemeinsam verschiocken kann, ohne, dass alle blätter für den empfänger sichtbar sind, sondern eben nur die, die ich ausgewählt habe. hier nun das makro:
Sub MailAktivTabelle()
Dim str1 As String
Dim str2 As String
On Error GoTo fehler
ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy
str1 = InputBox _
("Bitte Adressaten eingeben!" & Chr(13) & _
"hans.muster@xx.ch", "Adressat")
If str1 = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
str2 = InputBox _
("Bitte Betreff eingeben!", "Titel")
If str2 = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
Application.Dialogs(xlDialogSendMail).Show str1, str2
ActiveWorkbook.Close savechanges:=False
Exit Sub
fehler:
MsgBox ("Es muss eine Datei geöffnet sein!")
End Sub
Vielen dank im vorasu an alle makro chracks.
gruß dino