Hallo Ihr,

Ich versuche eine vorhandene datei unter einem anderen namen zu speichern und dann ohne formeln zu speichern.

Private Function dateikopieren(Ausgangspfad As String, Datum As String) As Boolean

    Dim xlAnw As Object    ' Variable für Verweis deklarieren.

    Dim fName As String

    Dim bolReturn   As Boolean


    bolReturn = True


    Set xlAnw = CreateObject("excel.application")


    Set xlAnw = GetObject(Ausgangspfad & "\Vorlage.xls")

    'Anwendung wird gezeigt

    xlAnw.Application.Visible = True

    xlAnw.Parent.Windows(1).Visible = True


    fName = Ausgangspfad & "\Ergebnisse\Übersicht Sicherheitskennzeichen " & Datum & ".xls"

    xlAnw.SaveAs Filename:=fName

    xlAnw.Application.Save

    xlAnw.Application.Quit


    Set xlAnw = GetObject(Ausgangspfad & "\Ergebnisse\Übersicht Sicherheitskennzeichen " & Datum & ".xls")

    'Anwendung wird gezeigt

    xlAnw.Application.Visible = True

    xlAnw.Parent.Windows(1).Visible = True

    xlAnw.Application.Run "FormelnWeg"

    xlAnw.Windows(Ausgangspfad & "\Ergebnisse\Übersicht Sicherheitskennzeichen " & Datum & ".xls").Close SaveChanges:=True

    xlAnw.Application.Quit


    Set xlAnw = Nothing


Exit_dateikopieren:

    dateikopieren = bolReturn

    Exit Function

Err_dateikopieren:

  bolReturn = False

  Resume Exit_dateikopieren

End Function

Das Makro "FormelnWeg" funktioniert super, hab es im Excel manuell angestoßen...

LG

Das Makro "FormelnWeg" funktioniert super, hab es im Excel manuell angestoßen...

das ist schön was war die frage? oder ist das dein beitrag zu einer codeschnipselsammlung?

s'Amstel