1
Excel / Antw: Tabellenblatt abspeichern mit Werten statt Formeln
« am: Januar 22, 2013, 08:41:03 Vormittag »
Habs selbst rausgefunden.....
Hier der vollständigkeit halber nochmal das ganze Skript (den kompletten Pfad hab ich mal anonymisiert):
Danke nochmla an Karin, und das ganze kann als gelöst gesetzt werden.
Gruß Marco
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 SubDanke nochmla an Karin, und das ganze kann als gelöst gesetzt werden.
Gruß Marco
Menü
An- und Abmelden
Partner / Links