Wie bekomme ich PasteSpecial in meine Prozedur?
19.02.2016 18:25:10
JLindner
ich habe ein kleines Programm geschrieben in welchem ich in verschiedenen Excel-Files
Daten auf zwei unterschiedlichen Sheets (Schicht / tag)kopiere um diese später als eine Art Archiv für Druckjobs zu verwenden.
Leider hat meine Programmierung einen Haken, da die Formeln mit kopiert werden und mir im Archiv-File dann jeweils beide Sheets geändert werden.
Eigentlich möchte ich nur die Werte einfügen.
Der Versuch PasteSpecial einzufügen war bislang nicht fruchtbar.
Hat jemand eine Idee?
Sub XLS_ArchivS()
Sheets("Hauptmenue").Select
Workbooks.Open Range("G16").Value
Sheets("Schicht").Select
Application.Wait Now + TimeSerial(0, 0, 1)
Range("A4:J24").Select
Selection.ClearContents
ChDrive Left(CurDir, 1)
ChDir CurDir
Set WbZiel = ActiveWorkbook.Worksheets("Schicht")
Windows("Wartung_MDS_Tag.xlsm").Activate
Set wbQuelle = ActiveWorkbook.Worksheets("Form001_Hilf")
' ********* Werte sind in der Vorlage berechnet *******
With wbQuelle
.Range("A4:I24").Copy Destination:=WbZiel.Range("A4")
' *********an dieser Stelle sollen nur Werte eingefügt werden ********
End With
WbZiel.Activate
ActiveWorkbook.Save
ActiveWindow.Close
Set WbZiel = Nothing
Set wbQuelle = Nothing
End Sub
In der Zieldatei ist der Berechnungsmodus auf manuell
Anzeige