Arbeitsblätter-Werte in neue Datei kopieren
29.01.2019 12:43:10
Daniel
es ist kein neues Thema, aber ich bekomm es einfach nicht zum laufen.
Ich möchte aus einer Datei einige Arbeitsblätter in eine neue Datei exportieren.
Das Funktioniert gut.
Jetzt möchte ich noch das wenigstens ein Arbeitsblatt nicht mit den Formeln sonder nur mit Wert bezügen kopiert wird.
Da zu habe ich den Befehl - .PasteSpecial Paste:=xlFormats - gefunden, bekomm diesen aber nicht eingebunden.
im folgende der aktuelle Stand.
Sub Herstellbarkeitsbewertung_Klicken_xls()
Application.ScreenUpdating = False
aktualisierung1
EinblendenHerstellbarkeitsbewertung
Worksheets(Array("Deckblatt", "Projekt-Beschreibung", "Checkl. Herstellb. Stanzteile", "Checkl. _
_
_
Herstellb. Kunststoffe", "Liste der Einschränkungen", "Herstellbarkeitsanalyse")).Copy
With ActiveWorkbook
Worksheets("Projekt-Beschreibung").PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:= _
_
_
False, Transpose:=False ' Werte
'Sheets("Projekt-Beschreibung").Select
'.SaveAs Filename:="Anfragebewertung_" & Range("d11").Value
End With
Workbooks("Angebotsbuch_makro2.xlsm").Activate
AusblendenHerstellbarkeitsbewertung
Sheets("Ausgabe").Select
Application.ScreenUpdating = True
End Sub
Anzeige