Kopieren von Blatt vor aktivem Arbeitsblatt

Question

Kann ich wissen, gibt es VBA-Code aus dem vorherigen Arbeitsblatt (Blatt vor dem aktuellen Arbeitsblatt) in das aktive Arbeitsblatt zu kopieren?

Answer 1

versuchen diesen Code:

Public Sub CpySheet() 
    Dim i As Long 
    Dim name As String 
    name = ActiveSheet.name 
    i = ActiveSheet.Index 

    Application.DisplayAlerts = False 
    Sheets(i).Delete 
    Application.DisplayAlerts = True 

    Worksheets(i - 1).Copy after:=Worksheets(i - 1) 
    Sheets(i).name = name 
End Sub