Nur Werte kopieren
03.09.2007 11:23:00
maruseru
Renee hat mit folgenden code gesendet, mit dem ich von einer Arbeitsmappe einen Bereich in eine andere Arbeitsmappe kopiere. Der Code funktioniert einwandfrei. Nun habe ich folgendes festgestellt.
Der Bereich der kopiert wird enthält Verweise auf einen anderen Bereich. Wenn nun kopiert wird werden auch die Verweise mitkopiert. Ich möchte aber nur die Werte kopieren.
Sub Requester()
Dim wbQuelle As Workbook, wsQuelle As Worksheet
On Error GoTo errorExit
Application.Dialogs(xlDialogOpen).Show
Set wbQuelle = ActiveWorkbook
Set wsQuelle = wbQuelle.Worksheets("02_Requester")
wsQuelle.Range(wsQuelle.Cells(4, 1), wsQuelle.Cells(4, 18)).Copy _
Destination:=ThisWorkbook.Worksheets("Requester").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
errorExit:
ThisWorkbook.Activate
End Sub
Danke und Gruss
Maruseru