create a kind of Gantt beam from a Working time sheet

%3CLINGO-SUB%20id%3D%22lingo-sub-1530754%22%20slang%3D%22en-US%22%3Ecreate%20a%20kind%20of%20Gantt%20beam%20from%20a%20Working%20time%20sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1530754%22%20slang%3D%22en-US%22%3E%3CP%3EHello%20people%20need%20help%20too%2C%3C%2FP%3E%3CP%3EWould%20like%20to%20create%20a%20kind%20of%20Gantt%20beam%20in%20this%20worksheet.%3C%2FP%3E%3CP%3EWould%20like%20to%20enter%20the%20working%20hours%20(von%3Dfrom%2C%20bis%3Dto)%20in%20sheet%20%22January%22%2C%20in%20three%20Duties%20(%20Dienst1%2C%20Dienst2%2C%20Bereitschaft%20)%20and%20in%20MA1%20to%209%20(colleagues)%20as%20well%20as%20the%20TeamChief%2C%20in%20the%20end%20it%20should%20be%20in%20the%20specified%20beam%20in%20sheet%20%22IND1%22%20should%20appear.%3C%2FP%3E%3CP%3EThe%20bar%20%2F%20timeline%20should%20appear%20(%E2%80%9CIND1%E2%80%9D)%20in%20the%20default%20color%20and%20row%20of%20the%20colleague%20I%20insert%20the%20working%20time%20in%20sheet%20%E2%80%9CJanuar%E2%80%9D.%20Only%20the%20entered%20working%20hours%20should%20appear%20with%20color%20in%20sheet%20%E2%80%9CIND1%E2%80%9D%2C%20everything%20else%20without%20color%20in%20the%20row.%3C%2FP%3E%3CP%3EIn%20the%20end%2C%20the%20VBA%20code%20should%20be%20so%20that%20I%20simply%20copy%20it%20into%20the%20next%20sheet%20every%20month.%3C%2FP%3E%3CP%3EA%20very%20nice%20person%20wrote%20me%20this%20VBA%20code%20(which%20I%20am%20also%20very%20grateful%20for)%20to%20accomplish%20my%20project.%20However%2C%20due%20to%20my%20VBA%20ignorance%2C%20I%20overexcited%20his%20good%20mood.%3C%2FP%3E%3CP%3EI%20tried%20all%20the%20days%20to%20make%20it%20on%20my%20own%2C%20but%20without%20success.%3C%2FP%3E%3CP%3EThat%E2%80%99s%20why%20I%20contact%20the%20community.%3C%2FP%3E%3CP%3EAny%20help%20in%20any%20kind%20is%20welcome%20and%20would%20like%20to%20thank%20you%20in%20advance%20for%20taking%20the%20time%20to%20read%20my%20request.%3C%2FP%3E%3CP%3EIf%20it%20could%20come%20to%20a%20solution%2C%20I%20would%20not%20only%20be%20happy%2C%20but%20also%20to%20do%20a%20somersault%20...%20and%20that%20at%20my%20age%20%3A-))%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1530754%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1531075%22%20slang%3D%22en-US%22%3ERe%3A%20create%20a%20kind%20of%20Gantt%20beam%20from%20a%20Working%20time%20sheet%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1531075%22%20slang%3D%22en-US%22%3EIn%20the%20end%20I%20solved%20the%20problem%20myself%20...%20more%20exhausting%20...%20but%20solved%20...%20with%20conditional%20formatting.%3CBR%20%2F%3E%3DODER(UND(%24F%248%26gt%3B%3DJanuar!%24I%2410%3B%24F%248%26lt%3B%3DJanuar!%24J%2410)%3BUND(%24F%248%26gt%3B%3DJanuar!%24I%2410%3BF%248%26lt%3B%3D%24F%248))%3CBR%20%2F%3E%3CBR%20%2F%3EPs.%20If%20someone%20could%20still%20have%20a%20VBA%20solution%20ready%2C%20this%20is%20also%20very%20welcome%20to%20me.%3CBR%20%2F%3E%3CBR%20%2F%3ENikolino%3CBR%20%2F%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FLINGO-BODY%3E
Trusted Contributor

Hello people need help too,

Would like to create a kind of Gantt beam in this worksheet.

Would like to enter the working hours (von=from, bis=to) in sheet "January", in three Duties ( Dienst1, Dienst2, Bereitschaft ) and in MA1 to 9 (colleagues) as well as the TeamChief, in the end it should be in the specified beam in sheet "IND1" should appear.

The bar / timeline should appear (“IND1”) in the default color and row of the colleague I insert the working time in sheet “Januar”. Only the entered working hours should appear with color in sheet “IND1”, everything else without color in the row.

In the end, the VBA code should be so that I simply copy it into the next sheet every month.

A very nice person wrote me this VBA code (which I am also very grateful for) to accomplish my project. However, due to my VBA ignorance, I overexcited his good mood.

I tried all the days to make it on my own, but without success.

That’s why I contact the community.

Any help in any kind is welcome and would like to thank you in advance for taking the time to read my request.

If it could come to a solution, I would not only be happy, but also to do a somersault ... and that at my age :-))

 

 

 

1 Reply
In the end I solved the problem myself ... more exhausting ... but solved ... with conditional formatting.
=ODER(UND($F$8>=Januar!$I$10;$F$8<=Januar!$J$10);UND($F$8>=Januar!$I$10;F$8<=$F$8))

Ps. If someone could still have a VBA solution ready, this is also very welcome to me.

Nikolino
I know I don't know anything (Socrates)