VBA Code anpassen

[johammer]

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 

[BoskoBiati]

Hi,

ungetestet:

Code:

sourceSheet.Range("D6:H" & lastRow).Copy
    targetSheet.Range("C6").PasteSpecial xlPasteValuesAndNumberFormats

[snb]

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

[johammer]

Hei, vielen Dank an BoskoBiati und snb,

hab den Code angepasst und Beide funktionieren.

Super

Vielen herzlichen Dank für die schnelle Lösung 

Gruß Jo