Hallo zusammen,

mittlerweile habe ich rausgefunden, dass es an der Benennung der Worksheets lag. Mit folgendem Code komt kein Error mehr, allerdings wid die Zelle nicht von A nach B kopiert, sondern die Ursprungszelle (die, die kopiert werden soll) wird lediglich ausgewählt...hm. Ich bin leider der totale Neuling auf diesem Gebiet und schlage mir schon seit Tagen diesen Zeug um die Ohren. Hoffe, dass irgendwer helfen kann... Tausend Dank!!!

Sub Day_1()
      Dim s As String
      s = ActiveCell.Value
      If Sheet1.Range("C12") = "ORI1_" Then
        Sheet2.Range("C10:F22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI2_" Then
        Sheet2.Range("P10:S22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI3_" Then
        Sheet2.Range("C29:F41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI4_" Then
        Sheet2.Range("P29:S41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI5_" Then
        Sheet2.Range("C48:F60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI6_" Then
        Sheet2.Range("P48:P60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI7_" Then
        Sheet2.Range("C67:F79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI8_" Then
        Sheet2.Range("P67:P79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI9_" Then
        Sheet2.Range("C86:F98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI10_" Then
        Sheet2.Range("P86:P98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI11_" Then
        Sheet2.Range("C105:F117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI12_" Then
        Sheet2.Range("P105:P117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI13_" Then
        Sheet2.Range("C124:F136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI14_" Then
        Sheet2.Range("P124:P136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI15_" Then
        Sheet2.Range("C143:F155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "ORI16_" Then
        Sheet2.Range("P143:P155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL1_" Then
        Sheet3.Range("C10:F22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL2_" Then
        Sheet3.Range("P10:S22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL3_" Then
        Sheet3.Range("C29:F41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL4_" Then
        Sheet3.Range("P29:S41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL5_" Then
        Sheet3.Range("C48:F60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL6_" Then
        Sheet3.Range("P48:P60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL7_" Then
        Sheet3.Range("C67:F79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL8_" Then
        Sheet3.Range("P67:P79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL9_" Then
        Sheet3.Range("C86:F98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL10_" Then
        Sheet3.Range("P86:P98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL11_" Then
        Sheet3.Range("C105:F117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL12_" Then
        Sheet3.Range("P105:P117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL13_" Then
        Sheet3.Range("C124:F136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL14_" Then
        Sheet3.Range("P124:P136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL15_" Then
        Sheet3.Range("C143:F155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "GOL16_" Then
        Sheet3.Range("P143:P155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE1_" Then
        Sheet4.Range("C10:F22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE2_" Then
        Sheet4.Range("P10:S22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE3_" Then
        Sheet4.Range("C29:F41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE4_" Then
        Sheet4.Range("P29:S41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE5_" Then
        Sheet4.Range("C48:F60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE6_" Then
        Sheet4.Range("P48:P60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE7_" Then
        Sheet4.Range("C67:F79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE8_" Then
        Sheet4.Range("P67:P79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE9_" Then
        Sheet4.Range("C86:F98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE10_" Then
        Sheet4.Range("P86:P98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE11_" Then
        Sheet4.Range("C105:F117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE12_" Then
        Sheet4.Range("P105:P117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE13_" Then
        Sheet4.Range("C124:F136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE14_" Then
        Sheet4.Range("P124:P136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE15_" Then
        Sheet4.Range("C143:F155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "AZE16_" Then
        Sheet4.Range("P143:P155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF1_" Then
        Sheet5.Range("C10:F22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF2_" Then
        Sheet5.Range("P10:S22").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF3_" Then
        Sheet5.Range("C29:F41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF4_" Then
        Sheet5.Range("P29:S41").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF5_" Then
        Sheet5.Range("C48:F60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF6_" Then
        Sheet5.Range("P48:P60").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF7_" Then
        Sheet5.Range("C67:F79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF8_" Then
        Sheet5.Range("P67:P79").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF9_" Then
        Sheet5.Range("C86:F98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF10_" Then
        Sheet5.Range("P86:P98").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF11_" Then
        Sheet5.Range("C105:F117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF12_" Then
        Sheet5.Range("P105:P117").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF13_" Then
        Sheet5.Range("C124:F136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF14_" Then
        Sheet5.Range("P124:P136").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF15_" Then
        Sheet5.Range("C143:F155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      ElseIf Sheet1.Range("C12") = "CAF16_" Then
        Sheet5.Range("P143:P155").Copy
        Sheet1.Activate
        Sheet1.Range("C13").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
      Else
        Sheet6.Range("J7").Copy
        Sheet1.Activate
        Sheet1.Range("D19").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
            
      End If
        
   End Sub