Nur Werte kopieren und einfügen
07.02.2016 12:24:52
Mike
ich verwende folgende Zeilen als Teil eines längeren Codes, um Werte von verschiedenen Mappen in eine andere zu kopieren.
Das funktioniert soweit, allerdings werden hier immer auch die Formate mit kopiert.
Kann mir jemand sagen, wie ich hier nur die Werte (ohne Formatierungen) kopieren kann ?
Ich habe es mit .PasteSpecial probiert, bekomme dann aber einen Fehler.
Mein Code:
For Each objFile In objFolder.Files
varRowCount = varNewSheet.UsedRange.Rows.Count
If objFile.Type = "Microsoft Excel Worksheet" Or objFile.Type = "Microsoft Excel Macro- _
Enabled Worksheet" Then
Set varWorkbook = Application.Workbooks.Open(varPath & objFile.Name)
Set varSheet = varWorkbook.Sheets(1)
varSheet.Range("B17:F49").Copy
varNewSheet.Activate
If varRowCount = 1 Then
varNewSheet.Cells(1, 1).Value = objFile.Name
varNewSheet.Cells(varRowCount + 1, 1).Select
Else
varNewSheet.Cells(varRowCount + 1, 1).Value = objFile.Name
varNewSheet.Cells(varRowCount + 2, 1).Select
End If
ActiveSheet.Paste
Application.DisplayAlerts = False
varWorkbook.Close
End If
Next
Mike