Versand Tabellenblatt ohne Formel OHNE VBA

Hallo
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

' Entfernt den Code aus der Arbeitsmappe Sub entFerneCode(ByRef myWbk As Workbook) Dim codeObject As Object For Each codeObject In myWbk.VBProject.VBComponents With codeObject ' Alle Module (Type 1), Forms (Code 2) und Klassenmodule (Code 3) löschen If .Type >= 1 And .Type

Hallo Stefan,
probiere doch mal folgenden Code :

VBA-Code:

Sub Blatt_senden2()
Dim Empfaenger As String
Dim wsQuelle As Worksheet, wsTemp As Worksheet

    Empfaenger = [L13]
If Range("O10").Value = "VERKAUF" Then
Set wsQuelle = Sheets("Abfrage")

        Workbooks.Add

        Application.DisplayAlerts = False
'Überflüssige Blätter der neuen Mappe löschen :
If Sheets.Count > 1 Then
For Each wsTemp In Sheets
If wsTemp.Index > 1 Then wsTemp.Delete
Next
End If

        wsQuelle.Cells.Copy

        ActiveSheet.Name = wsQuelle.Name
With ActiveSheet.Cells

            .PasteSpecial Paste:=xlValues   'Werte einfügen

            .PasteSpecial Paste:=xlFormats  'Formate einfügen
End With

        ActiveWorkbook.SendMail Empfaenger, "erreicht > VERKAUFEN"

        ActiveWindow.Close

        Application.DisplayAlerts = True
End If
End Sub

Gruß, NoNet

					 Bingo !  Thx an Nonet und JogyB 
				
					Stef@n
				
Das ist es !

Dank Dir sehr Nonet   

und auch JogyB 

für die superschnelle Hilfe

Besten Gruß

Stefan

Beliebteste Forumthreads (12 Monate)

Versand Tabellenblatt ohne Formel OHNE VBA

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Versand Tabellenblatt ohne Formel OHNE VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread