Kopieren Blatt EINSCHLIESSEN Kommentare

Question

Ich suche ein Blatt aus einer Arbeitsmappe in eine andere Arbeitsmappe genau zu kopieren, wie es ist, einschließlich Kommentare. Bisher habe ich keinen einfachen Weg gefunden, dies zu tun. Dies ist der Code, der sehr gut für das Kopieren funktioniert und den Inhalt eines Blatt zu einer Arbeitsmappe ohne Kommentare einfügen:

Sub copyOrRefreshSheet(destWb As Workbook, sourceWs As Worksheet) 
    Dim ws As Worksheet 
    On Error Resume Next 
    Set ws = destWb.Worksheets(sourceWs.Name) 
    On Error GoTo 0 
    If ws Is Nothing Then 
     sourceWs.Copy After:=destWb.Worksheets(destWb.Worksheets.Count) 
    Else 
     ws.Unprotect Password:="abc123" 
     ws.Cells.ClearContents 
     ws.Range(sourceWs.UsedRange.Address).Value = sourceWs.UsedRange.Value2 
    End If 
End Sub 

Ich bin sicher, dass es etwa eine Zeile Code nimmt dieses Problem zu beheben, ich Ich weiß einfach nicht wie. Vielen Dank im Voraus.

Answer 1

Try Änderung:

ws.Range(sourceWs.UsedRange.Address).Value = sourceWs.UsedRange.Value2 

An:

sourceWs.UsedRange.Copy 
ws.Range(sourceWs.UsedRange.Address).PasteSpecial(xlPasteAll)