Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Formel als Wert in Arbeitsblatt kopieren

Formel als Wert in Arbeitsblatt kopieren
24.01.2023 13:42:45
D
Hallo,
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 Hilfe
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel als Wert in Arbeitsblatt kopieren
24.01.2023 14:00:11
Rudi
Hallo,
    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").PasteSpecial xlPasteValues
End With
Gruß
Rudi
Anzeige
AW: Formel als Wert in Arbeitsblatt kopieren
24.01.2023 14:08:50
GerdL
Hallo D
Sub CopyColumnsEnglisch()
   
    Dim rngCopy As Range
        
    With Sheets("MASTER-Liste")
       Set rngCopy = .Range(.Cells(9, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    rngCopy.Copy
    Sheets("List_English").Range("A2").Paste Paste:=xlPasteValues
    Application.CutCopyMode = False
    Set rngCopy = Nothing
End With
Gruß Gerd
Anzeige
AW: Formel als Wert in Arbeitsblatt kopieren
24.01.2023 14:20:19
D
Vielen Dank! Es hat funktioniert .-)
Viele Grüße
D.
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige