If Not IsEmpty(Worksheets("Berechnung").Range("P13").Value) Then
Worksheets("Rechnung1").Copy
With ActiveWorkbook
With Worksheets("Rechnung1").UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Call .SaveAs(Filename:="E:\daten\sdoliwa\Eigene Dokumente\2012\Vorgesorgt\Rechnungen\" & "Formularrechnung" & _
.Worksheets("Rechnung1").Range("D31").Text & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled)
Call .Close(SaveChanges:=False)
End With
End If
Weiß jemand was los ist?