Vor SaveAs Datei suchen
Heinz
Im unteren Code wird mir ein Sheets zum Mailversenden kopiert.
Das funktioniert auch alles.
Nur wenn die Datei schon besteht sollte der Code vor dem Kopieren abgebrochen werden.
Also wenn die Datei schon besteht - Code abbrechen.
Könnte mir dazu bitte jemand weiterhelfen ?
Gruß
Heinz
Option Explicit
Sub CopySchichtliste()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="vetro"
ActiveSheet.DrawingObjects.Visible = True
If MsgBox("Als Mail versenden ?", vbQuestion + vbYesNo, "Abfrage") = vbNo Then
Else
ThisWorkbook.Sheets("Personalbesetzung").Copy
With ActiveSheet.UsedRange
ActiveWorkbook.SaveAs "Personalbesetzung KE" & " " & " " & ActiveSheet.Range("Q5") & " " _
_
& "-" & "Schicht" & " " & ActiveSheet.Range("U5") & " " & ".xls"
'Ausfüllbereiche leeren
.Range("B50:B85").ClearContents
End With
ActiveSheet.DrawingObjects.Visible = False
End If
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="vetro"
End Sub
Anzeige