Hi,

ich habe einen Problem und suche nach einer Lösung.

Ich möchte enen sheet senden, jedoch beinhaltet der mergedcells. Eine Debug Meldung mit verweis euf folgende selection erscheint.

Source.Copy
    With Dest.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial Paste:=xlPasteValues
        .Cells(1).PasteSpecial Paste:=xlPasteFormats
        .Cells(1).Select
        Application.CutCopyMode = False
    End With

Ich muss dazu sagen dass ich  ein bluttiger Anfänger was VBA angeht bin deshlab Frage ich Euch. Wie kann ich es am besten lösen?

Danke Euch