Tabellenblatt abspeichern mit Werten statt Formeln

[dr-mage]

Hallo Zusammen!

Ich bin absoluter VBA-Neuling und hab mir in mühsamer Forensuche ein Skript gebastelt, welches mir ein Tabellenblatt einzeln abspeichert unter dem Namen, den ich in Zelle "B4" angebe. Da in dem neuen Blatt aber noch Verweise auf meine Arbeitsmappe sind, die ich eventuell ändere, wollte ich fragen ob/wie man mein Skript ändern muss, damit es nur die Werte abspeichert.
http://www.office-fragen.de/index.php/topic,429.msg720.html#msg720
Habe ich zwar gefunden, aber kann nicht wirklich was damit anfangen. Mein Skript lautet wie folgt:

Code: [Auswählen]

Sub Speichern()
Dim neuname As String
neuname = Sheets("Ansatzberechnung").Range("B4") & " " & Sheets(2).Name
Sheets(2).Copy
ActiveWorkbook.SaveAs neuname
ActiveWorkbook.Close
End Sub
Danke schonmal für die Hilfe!

Gruß Marco

[Beverly]

Hi Marco,

versuche es so (ungetestet):

Code: [Auswählen]

Sub Speichern()
   Dim neuname As String
   neuname = Sheets("Ansatzberechnung").Range("B4") & " " & Sheets(2).Name
   Sheets(2).Copy
   ActiveSheet.UsedRange.Copy
   Range("A1").PasteSpecial Paste:=xlValues
   ActiveWorkbook.SaveAs neuname
   ActiveWorkbook.Close
End Sub
Bis später,
Karin

[dr-mage]

Hallo und danke erst einmal für die schnelle und gute Hilfe.
Es klappt prima. Nur noch eine letzte Frage, kann ich die Frage ob er den Zielbereich überschreiben soll (beim Paste) per Skript unterdrücken oder quitieren?

Liebe Grüße
Marco

[dr-mage]

Habs selbst rausgefunden.....

Hier der vollständigkeit halber nochmal das ganze Skript (den kompletten Pfad hab ich mal anonymisiert):

Code: [Auswählen]

Sub Speichern()
Dim neuname As String, Pfad As String
Pfad = "XXXX\Ansätze\"
neuname = Pfad & Sheets("Ansatzberechnung").Range("B4") & " " & Sheets(2).Name
Sheets(2).Copy
ActiveSheet.UsedRange.Copy
Application.DisplayAlerts = False
Range("A1").PasteSpecial Paste:=xlValues
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs neuname
ActiveWorkbook.Close
End Sub
Danke nochmla an Karin, und das ganze kann als gelöst gesetzt werden.
Gruß Marco