Einzelne Arbeitsblätter einer Arbeitsmappe lassen sich via Outlook ja an verschiedene Adressaten mit folgendem Code versenden:
(Es wird zum Versenden auf eine Tabelle zugegriffen, in der in Spalte 1 die e-mail-Adresse, in Spalte 2 eine Betreffzeile und in Spalte 3 das zu kopierende Arbeitsblatt steht)
For Zeilenindex = 1 To AnzZeilen
TextAdr = Cells(Zeilenindex, 1).Value
TextBetr = Cells(Zeilenindex, 2).Value
TextBlatt = Cells(Zeilenindex, 3).Value
Worksheets(TextBlatt).Copy
ActiveWorkbook.SendMail TextAdr, TextBetr
ActiveWorkbook.Close savechanges:=False
Next Zeilenindex
Nun möchte ich, dass dieses Arbeitsblatt nur Werte und nicht die (eventuell vorhandenen) Bezüge zu anderen Arbeitsblättern versendet.
Ich habe es in X-Varianten mit
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
versucht, es funktionierte jedoch nicht.
Wer kann mir helfen?
Vielen Dank