Clever-Excel-Forum

Guten Morgen in die Runde,

ich habe mir einen VBA Code mit Co-Pilot generieren lassen, der einen Bereich kopiert und auf das Blatt
Überblick einfügt. Das macht er auch, allerdings mit den dahinter liegenden Formeln, was nicht gewünscht ist.

hier mal der Code:

Sub CopyLastRow()

Dim lastRow As Long
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet

' Festlegen des Quellblatts und des Zielblatts
Set sourceSheet = ThisWorkbook.Worksheets("Startseite")
Set targetSheet = ThisWorkbook.Worksheets("Überblick")

' Findet die letzte Zeile in Spalte D
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "D").End(xlUp).Row

' kopiert den Bereich von D6 bis zur Spalte H (letzte Zeile) auf das Zielblatt ab C6
sourceSheet.Range("D6:H" & lastRow).Copy targetSheet.Range("C6")

End Sub

wie erwähnt sollen die Formeln nicht mit eingefügt werden.
Wer könnte mir den Code so abändern, das nur die Werte eingefügt werden.

Lg Jo Huh

Hi,

ungetestet:

Code:
sourceSheet.Range("D6:H" & lastRow).Copy

    targetSheet.Range("C6").PasteSpecial xlPasteValuesAndNumberFormats

Code:
Sub M_snb()

  with sheets("Startseite").cells(1).currentregion.offset(5,3)

     sheets("Überblick").cells(6,3).resize(.rows.count, .columns.count)=.value

  end with

End Sub

Hei, vielen Dank an BoskoBiati und snb,

hab den Code angepasst und Beide funktionieren.

Super

Vielen herzlichen Dank für die schnelle Lösung 100

Gruß Jo

johammer

BoskoBiati

snb

johammer