Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren und Format beibehalten
01.07.2014 14:12:15 Tom
NotSolved
01.07.2014 14:17:53 Gast71336
NotSolved

Ansicht des Beitrags:
Von:
Tom
Datum:
01.07.2014 14:12:15
Views:
628
Rating: Antwort:
  Ja
Thema:
Kopieren und Format beibehalten

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren und Format beibehalten
01.07.2014 14:12:15 Tom
NotSolved
01.07.2014 14:17:53 Gast71336
NotSolved