Tabelle versenden mit Formeln?
01.04.2005 06:41:41
Erich M.
habe ein Makro mit dem ich aus einer EXCEL-Datei eine einzelne Tabelle versende.
Dabei werden alle hinterlegten Formeln in Werte umgewandelt (falls auf andere
Tabellen oder Dateien zugegriffen wird).
Klappt wunderbar.
Nun suche ich eine Möglichkeit, mit der folgendes erreicht wird:
1. alle Formeln, die sich nur innerhalb der Tabelle bewegen bleiben erhalten.
2. alle Formeln, die auf andere Tabellen oder Dateien zugreifen, werden in Werte umgewandelt.
Geht das?
Hier mein aktueller Code:
Sub BlattKopierenUndVersenden()
'aktives Tabellenblatt als Arbeitsmappe
'im Temporären Ordner speichern, als
'Anlage mit Outlook versenden und anschliesend löschen
Dim strPath As String
Dim strName As String
Dim strFile As String
strPath = "C:\Windows\Temp\" 'Pfad
strName = InputBox("Dateiname eingeben, xls wird automatisch vergeben")
If strName = "" Then Exit Sub
'strName = ActiveSheet.Name 'Tabellenname
strFile = strPath & strName & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
Cells.Select
Selection.Copy
''''''''''hier müsste was geändert werden ????? !!!!!!!!!!!!!!!
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
With ActiveWorkbook
.SaveAs strFile
Senden strFile 'Datei versenden
.Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich
http://www.toolex.de