Versand Tabellenblatt ohne Formel OHNE VBA
Stef@n
auf Basis der Antworten des Threads
https://www.herber.de/forum/messages/1117576.html
habe ich folgenden Code, der auch einwandfrei funktioniert ! (Mail wird erst versandt, wenn in
der Zelle O10 der Text "VERKAUF" steht.
Nur eine Nachfrage:
Es wird das Blatt kopiert INKL. der enthaltenen VBA-Codes und einer "Webabfrage" :|
Kann man den Code so ändern, dass wirklich NUR die Zell-Werte
kopiert werden und das Mail verschickt wird ?
Es sollen nicht die VBA-Codes und die Webabfrage mit kopiert werden.
Besonders wichtig wäre es, dass die VBA-Codes NICHT enthalten sind.
Hier mein Code
Sub Blatt_senden()
Dim Empfaenger As String
Empfaenger = [L13]
If Range("O10").Value = "VERKAUF" Then
Sheets("Abfrage").Copy
With ActiveSheet
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
End With
ActiveWorkbook.SendMail "xx@yyy.de", "erreicht > VERKAUFEN"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End If
End Sub
Besten Gruss Stefan
Anzeige