Einen guten Morgen an die Spezialisten.
Frage: Wie kann ich per VBA eine aktiviertes Sheet per Email senden mit Eingabe einer Email Anschrift?
Habe den Code aus dem Forum (Hersteller nicht mehr bekannt):
Allerdings wirft der Code einen Fehler aus, "Objekt unterstützt die Eigenschaften der Metode nicht".
Weiß jemand Rat?
Sub TabellenblattVersenden()
s = InputBox("Geben Sie den Empfänger der E-Mail ein!")
If s = "" Then Exit Sub
ActiveSheet.Copy
ActiveWorkbook.SaveAs "Anhang.xls"
ActiveSheet("Anhang.xls").Unprotect
Range("A1:D57").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues,_
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6").Select
Application.CutCopyMode = False
ActiveSheet("Anhang.xls").Protect DrawingObjects:=True,_
Contents:=True, Scenarios:=True
Range("A6").Select
Application.Dialogs(xlDialogSendMail).Show s
End Sub