[wombat223]

Danke gosha16

mit

      For i = 2 To Worksheets.Count - 1
         .Range("C7:H7").Offset(0, j).Value = Worksheets(i).Range("C12:L12").Value
        z =z + 13
      Next

bin ich mitlerweile ein gutes stück weiter gekommen.