Ich habe folgenden Code geschrieben. Dabei wird eine Date in eine neue Excel-Datei hineinkopiert. Allerdings verändert sich das Format. Könnte mir jmd. bitte weiterhelfen, indem er mir sagt wie ich das modifizieren muss, damit auch das Format nachdem kopieren das gleich ist. Ich habe schon vieles probiert, aber leider vergebens :-(

Sub SaveAsValues_Data()

    Dim Pfas As String

    Pfad = Range("B3").Value
   
    Sheets("Result").Copy 'Blatt in neue Mappe kopieren
   
    With ActiveWorkbook
       
        .SaveAs Filename:=Pfad & ".xls"
        .Close
   
    End With
         
End Sub

FG

Tom