Copy nur Werte
10.03.2005 14:03:28
Gisela
bitte um Hilfe.
Ich versende mit dem u.a. Makro ein TB.
Was muss ich verändern, damit ich nur die Werte und nicht die ganze Formatierung kopiere und versende?
Sub SendenTabProb()
' in Z1 Name des Tabellenblattes
' in Z2 Mailempfänger
' in Z3 Betreff
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
Worksheets(Range("Z1").Value).Copy
ActiveWorkbook.SendMail wks.Range("Z2").Value, wks.Range("Z3").Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Vielen lieben Dank und Grüße
Gisela
Anzeige