kopieren-speicher-ablegen

Hallo,
mit dem unten stehenden Code soll eine einzige Tabelle kopiert und auf dem Desktop abgespeichert werden.
Nur das Problem ist, einmal funktioniert es und einmal funktioniert es nicht.
Bekomme immer die Meldung : Laufzeitfehler 1004
die copy-methode des worksheet-objektes konnte nicht ausgeführt werden
was kann ich denn da machen? habt ihr vielleicht eine idee?
Vielen Dank im Voraus
lg fatih
Sub Bild8_BeiKlick()
Application.ScreenUpdating = True
Dim strToReceiver As String
Dim strSubject As String
Dim strBody As String
Dim wbMail As Workbook, strAttachment As String, strPfad As String
'Blatt Daten kopieren und als Datei speichern
With ActiveWorkbook
strPfad = .Path
.Worksheets("Daten").Copy 'HIER BLEIBT ER IMMER HÄNGEN
End With
Set wbMail = ActiveWorkbook
With wbMail
'Dokumenteigenschaften setzen
.BuiltinDocumentProperties("Title") = "Blatt Daten, Stand: " & Date
.BuiltinDocumentProperties("Subject") = "Helvetia Action Tracking"
'Dokument im Excel 2003-Format speichern
.SaveAs Filename:=strPfad & Application.PathSeparator _
& "ActionTrackingTabelle " & Format(Date, "YYYY-MM-DD"), FileFormat:=xlExcel7
strAttachment = .FullName
.Close
End With
'Mailprogramm aufrufen
strToReceiver = "vpmonitoring@helvetia.at"
strSubject = "Helvetia Action Tracking"
Call ShellExecute(0&, "Open", "mailto:" & strToReceiver _
& "?Subject=" & strSubject, "", "", 1)
Call ShellExecute(0&, "Open", "mailto:" & strToReceiver _
& "?Subject=" & strSubject & "?Attachment=" & strAttachment, "", "", 1)
Application.ScreenUpdating = False

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Fatih,
Rainer hat dir eigentlich schon geschrieben, wie du das hinbekommen kannst.
Hier noch ein Schmankerl mehr: In visS merkt man sich die "Visibility" des Blatts, dann wird es eingeblendet
und nach dem Copy (in der Quellmappe) wieder in den Vor-Zustand gebracht.
In der durch Copy entstehenden neuen Mappe ist das Blatt sichtbar.
Der aktuelle Benutzer sieht es aber wegen des "Application.ScreenUpdating = False" trotzdem _ nicht:


Sub Bild8_BeiKlick()
Dim strToReceiver As String
Dim strSubject As String
Dim strBody As String
Dim strAttachment As String, strPfad As String
Dim visS As XlSheetVisibility
Application.ScreenUpdating = False ' ##### NICHT True
'Blatt Daten kopieren und als Datei speichern
With ActiveWorkbook
strPfad = .Path
With .Worksheets("Daten")
visS = .Visible
.Visible = xlSheetVisible
.Copy 'HIER BLEIBT ER IMMER HÄNGEN
.Visible = visS
End With
End With
' durch das Copy entstand ein neues ActiveWorkbook
With ActiveWorkbook
'Dokumenteigenschaften setzen
.BuiltinDocumentProperties("Title") = "Blatt Daten, Stand: " & Date
.BuiltinDocumentProperties("Subject") = "Helvetia Action Tracking"
'Dokument im Excel 2003-Format speichern
.SaveAs Filename:=strPfad & Application.PathSeparator _
& "ActionTrackingTabelle " & Format(Date, "YYYY-MM-DD"), FileFormat:=xlExcel7
strAttachment = .FullName
.Close
End With
'Mailprogramm aufrufen
strToReceiver = "vpmonitoring@helvetia.at"
strSubject = "Helvetia Action Tracking"
Call ShellExecute(0&, "Open", "mailto:" & strToReceiver _
& "?Subject=" & strSubject, "", "", 1)
Call ShellExecute(0&, "Open", "mailto:" & strToReceiver _
& "?Subject=" & strSubject & "?Attachment=" & strAttachment, "", "", 1)
Application.ScreenUpdating = True ' ##### NICHT False
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread