Thema Datum  Von Nutzer Rating
Antwort
Rot Only copy values to new workbook
05.08.2019 16:08:49 Sabrina
NotSolved
05.08.2019 22:51:34 Flotter Feger
Solved
06.08.2019 08:14:06 Gast73066
NotSolved
06.08.2019 17:46:15 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Sabrina
Datum:
05.08.2019 16:08:49
Views:
52
Rating: Antwort:
  Ja
Thema:
Only copy values to new workbook

Hi All,

I have the following code:

Sub Splitbook()        
Dim xPath As String   
Dim rng As Range
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set rng = ActiveWorkbook.Sheets("Overview").Range("Approver")     
For Each xws In ActiveWorkbook.Worksheets                          
If Not IsError(Application.Match(xws.Name, rng, 0)) Then          
    xws.Copy                                                     
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "Travelcosts" & " " & "Team" & " " & xws.Name & " " & xws.Range("F1") & ".xlsx"
    Application.ActiveWorkbook.Close False
End If
Next xws
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

Now the new workbooks get saved at the right place, but they still have the formulas inside. So when I change something in the original workbook the new workbooks change as well. But that's not what I want. I only want to copy the values and the format - not the formulas. Does anybody have an idea for me?

Thanks in advance.

Best regards,

Sabrina


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 Only copy values to new workbook
05.08.2019 16:08:49 Sabrina
NotSolved
05.08.2019 22:51:34 Flotter Feger
Solved
06.08.2019 08:14:06 Gast73066
NotSolved
06.08.2019 17:46:15 Flotter Feger
NotSolved