Tabelle als Anhang mit Mail versenden über VBA
toxma
Habe folgendes Beispiel hier im Forum für den Versandt einer E-Mail aus Excel herraus gefunden, und funktioniert auch.
Private Sub send1_Click()
'Sub einzelnes_Blatt_senden()
Dim blatt As Integer
blatt = InputBox("Welches Blatt möchten Sie senden?" & Chr(13) & "Bitte die laufende Blattnummer eingeben")
Sheets(blatt).Copy
ActiveWorkbook.SendMail "info@excel-inside.de", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Problem ist nun, wenn ich bei meiner Auswahlbox auf nein klicke, erhalte ich eine Fehlermeldung. Wie kann ich dies verhindern bzw. wo liegt der Fehler?
Anzeige