Hallo zusammen,

gerne würde ich in meinem Script auf das Aktivieren einzelner Sheets zum Kopieren zwischen der Tabellenblätter verzichten.
Leider bekomme ich bei jedem Umbauversuch Fehlermeldungen. Ggf. kann hier wer weiterhelfen? Danke Euch!

Dim SourceRange As Range
Dim SrcRow, SrcColumn, DstRow, DstColumn As Integer
    
SrcRow = 3
SrcColumn = 2 + (Weekoffset - 1) * 7 + DayOffset
DstRow = 5
DstColumn = 3
    
Do While True
    Sheets(3).Activate
    Set SourceRange = Range( _
        Cells(SrcRow, SrcColumn), _
        Cells(SrcRow + 2, SrcColumn + DayCount - 1) _
        )
        
    SourceRange.Copy
    Sheets(Sheets.Count).Activate
    Cells(DstRow, DstColumn).PasteSpecial (XlPasteType.xlPasteValuesAndNumberFormats)
        
    SrcRow = SrcRow + 3
    DstRow = DstRow + 6
        
Loop