Hallo zusammen,

ich nochmal. Ich habe das ganze jetzt übertragen, aber leider kommt beim ausführen nun immer die Fehlermeldung "Runtime Error 424 - object required". Habt ihr eventuell eine Ahnung woran das liegen kann? Das ist der Code...:

Sub Day_1()
      Dim s As String
      s = ActiveCell.Value
      If Content_Calendar.Range("C12") = "ORI1_" Then
        Posts_ORIGINAL.Activate
        Posts_ORIGINAL.Range("C10:F22").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI2_" Then
        Posts_ORIGINAL.Range("P10:S22").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI3_" Then
        Posts_ORIGINAL.Range("C29:F41").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI4_" Then
        Posts_ORIGINAL.Range("P29:S41").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI5_" Then
        Posts_ORIGINAL.Range("C48:F60").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI6_" Then
        Posts_ORIGINAL.Range("P48:P60").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI7_" Then
        Posts_ORIGINAL.Range("C67:F79").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI8_" Then
        Posts_ORIGINAL.Range("P67:P79").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI9_" Then
        Posts_ORIGINAL.Range("C86:F98").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI10_" Then
        Posts_ORIGINAL.Range("P86:P98").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI11_" Then
        Posts_ORIGINAL.Range("C105:F117").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI12_" Then
        Posts_ORIGINAL.Range("P105:P117").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI13_" Then
        Posts_ORIGINAL.Range("C124:F136").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI14_" Then
        Posts_ORIGINAL.Range("P124:P136").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI15_" Then
        Posts_ORIGINAL.Range("C143:F155").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Content_Calendar.Range("C12") = "ORI16_" Then
        Posts_ORIGINAL.Range("P143:P155").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      Else
        Data.Range("J7").Copy
        Content_Calendar.Activate
        Content_Calendar.Range("D19").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
            
      End If
        
   End Sub

Ganz lieben Dank!!

Mat