Kopieren ohne Macros die 3.
Paul
Hallo Paul,
nachvollziehen kann ich es nicht. Das bedeutet ja, dass das Kopieren des Blattes nicht nicht ausgeführt wird oder der ActiveWorkbook-Status nicht auf die Datei mit der Kopie des Blatts "Übersicht" übergeht.
Die einzige Unterstützung, die ich anbieten kann, ist, dass kein E-mail-Versand erfolgt, wenn die zu sendende Datei mehr als 1 Blatt enthält.
Gruß
Franz
Sub Übersicht_senden()
Dim Pw As String, PwFix As String, wksCopy As Worksheet, wbCopy As Workbook
Dim wbAktiv As Workbook
Set wbAktiv = ActiveWorkbook
wbAktiv.Sheets("Übersicht").Copy
Set wbCopy = ActiveWorkbook
If wbCopy.Sheets.Count = 1 Then
'zu versendende Datei sollte nur 1 Tabellenblatt haben
Set wksCopy = wbCopy.Worksheets(1)
wksCopy.UsedRange.Value = wksCopy.UsedRange.Value
wbCopy.SendMail [MailAdd], ["Tagesauswertung Service Gesamt"]
wbCopy.Close savechanges:=False
wbAktiv.Save
wbAktiv.Close
Else
MsgBox Prompt:="Irgend etwas ist schief gegangen." & vbLf _
& "Die zu versendende Datei sollte nur 1 Tabellenblatt enthalten!" _
& vbLf & vbLf & "Blatt Übersicht wurde nicht gesendet.", _
Buttons:=vbInformation + vbOKOnly, _
Title:="Übersicht per E-Mail versenden"
End If
Set wbCopy = Nothing: Set wksCopy = Nothing: Set wbAktiv = Nothing
End Sub
Dein Macro hat bis heute, ca. 3 Wochen funkioniert,( aus einer geöffneten Datei mit 2 Blättern das Blatt "Übersicht" kopieren und ohne Makro's und Formeln versenden). Heute kam dann wieder die komplette Datei, mit Macro's, Was ich jetzt weiß, ist, dass heute die Datei vor dem Versenden minimiert wurde und eine andere Excel-Datei geöffnet wurde. Diese wurde dann wiederum minimiert und die Problemdatei wieder maximiert und per Macro versendet, ist das vielleicht ein Tipp um dem Problem auf den Grund zu kommen