Range ohne externe Bezüge in Dateien kopieren
20.03.2007 15:43:39
Peter
ich benötige einmal mehr Hilfe.
Mit einem Makro kopiere ich einige Zellen, die Formeln enthalten, in alle Dateien eines bestimmten Ordners.
Wie kann ich es erreichen, daß die Formeln ohne Bezüge in die Mappe, aus der die Kopie stammt, eingefügt werden?
Hier ist das Makro, das ich verwende:
Sub CopyRange()
Dim Pfad As String
Dim Datei As String
Pfad = "C:\Documents and Settings\User\Desktop\Test\"
Datei = Dir(Pfad)
Do Until Datei = ""
Windows("template.xls").Activate
Range("B925:N964").Select
Selection.Copy
If Right(Datei, 4) = ".xls" Then
Workbooks.Open (Pfad & Datei)
Sheets("Calculations").Activate
Range("B929").Select
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Close savechanges:=True
End If
Datei = Dir()
Loop
End Sub
Für Eure Hilfe bin ich sehr dankbar.
Schöne Grüße,
Peter
Anzeige