VBA für Werte und Formate einzelner Blätter

Sub Kopieren() ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "Kopie" With ActiveSheet.UsedRange.Cells .Value = .Value End With 'ActiveSheet.Copy Application.Dialogs(xlDialogSendMail).Show _ "musstermann@anbieter.de", "Betreff" Application.DisplayAlerts = False ActiveSheet.Delete 'Kopie wieder löschen Application.DisplayAlerts = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopieren() Dim strNameTemp As String Dim WKB As Workbook 'Name der temporären Datei für den E-Mailversand With ActiveWorkbook strNameTemp = .Path & Application.PathSeparator _ & "Copy_" & Left(.Name, InStrRev(.Name, ".")) & "xlsx" End With 'Blatt in neue Arbeitsmappe kopieren ActiveSheet.Copy Set WKB = ActiveWorkbook With WKB.Sheets(1) .Name = "Kopie" With .UsedRange.Cells .Value = .Value End With End With 'Datei emporärspeichern Application.DisplayAlerts = False WKB.SaveAs strNameTemp, FileFormat:=51 Application.DisplayAlerts = True Application.Dialogs(xlDialogSendMail).Show _ "musstermann@anbieter.de", "Betreff" Application.DisplayAlerts = False WKB.Close savechanges:=False Application.DisplayAlerts = True 'Kopie wieder löschen If Dir(strNameTemp) Then Kill strNameTemp End Sub

Halo Mathi,
deine Tabellenblätter enthalten wohl Formeln mit Funktionen, die nur innerhalb der Datei funktionieren - z.B. INDIREKT.
Da muss man das Makro etwas umbauen.
Das Blatt muss erst innerhalb der Datei kopiert werden, dann umbenannt und Formeln durch Werte ersetzt werden. Danach kann die Kopie dann in eine neue Mappe verschoben und als E-Mail-Anhang verschickt werden.
LG
Franz

Sub Kopieren()
Dim strNameTemp As String
Dim WKB As Workbook, wksCopy As Worksheet
With ActiveWorkbook
'Name der temporären Datei für den E-Mailversand
strNameTemp = .Path & Application.PathSeparator _
& "Copy_" & Left(.Name, InStrRev(.Name, ".")) & "xlsx"
'aktives Blatt kopieren
ActiveSheet.Copy after:=.Sheets(.Sheets.Count)
Set wksCopy = .Sheets(.Sheets.Count)
End With
With wksCopy
'Kopie umbenennen und Formeln durvh Werte ersetzen
.Name = "Kopie"
With .UsedRange.Cells
.Value = .Value
End With
'Blatt in neue Arbeitsmappe verschieben
.Move
End With
Set WKB = ActiveWorkbook
'Datei temporär speichern
Application.DisplayAlerts = False
WKB.SaveAs strNameTemp, FileFormat:=51
Application.DisplayAlerts = True
Application.Dialogs(xlDialogSendMail).Show _
"musstermann@anbieter.de", "Betreff"
Application.DisplayAlerts = False
WKB.Close savechanges:=False
Application.DisplayAlerts = True
'Kopie wieder löschen
If Dir(Pathname:=strNameTemp)  "" Then Kill Pathname:=strNameTemp
End Sub

Beliebteste Forumthreads (12 Monate)

VBA für Werte und Formate einzelner Blätter

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA für Werte und Formate einzelner Blätter

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread