Formel als Wert in Arbeitsblatt kopieren
24.01.2023 13:42:45
D
Ich möchte Daten einer Tabelle in eine andere Tabelle kopieren. Formeln sollen nicht übertragen werden. Die Daten sollen als Werte eingefügt werden. Mit dem unten geschriebenem Code wird auch die Formel übertragen.
Wie muss ich diesen Code umschreiben?
Sub CopyColumnsEnglisch()
Dim lngLastRow As Long
Dim rngCopy As Range
With Sheets("MASTER-Liste")
lngLastRow = .Range("A1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(9, 1), .Cells(lngLastRow, 1))
rngCopy.Copy (Sheets("List_English").Range("A2"))
End With
End Sub
Vielen Dank schon einmal für die HilfeAnzeige