Ich habe eine Mappe erstellt bestehend aus 13 Blättern.
Jedes Blatt hat einen Sende-Button, der mit
Sub BlattVerschicken()
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show _
"mustermann@provider.com", "Betreff"
End Sub
Ich möchte aber, dass nur Werte und Formate gemailt werden.Diesen Code habe ich im Internet gefunden und versucht ihn in meinen Code zu integrieren. Es klappt aber nicht
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Kann mir vielleicht jemand helfen und das obere Skript so modifiziert, dass nur Werte und Formate verschickt werden?
Ich bedanke mich
LG
Mathi