Work schedule

[Niekb22]

Hello,

currently I am working on an workschedule.
But unfortunatly i cant figure out how to program a case structure wich compares letters.

So every letters represents a number of working hours.
for example M stands for morning and represents 4 hours of work.

I tried a function wich compares the current value with the letters.
someting like this.

Function hourscal(Hours as string) ' for comparing a letter I used a string
dim totalhour As integer


select case hours

Case hours = M

Totalhours = value + 4

How can make a case structure like this?

thanks in advance

Niek

wat is

 

[kweaver]

How many hours of work are represented by each of the letters?

 

[Fluff]

Hi & welcome to MrExcel.
Why not just use a formula?

+Fluff 1.xlsm
	G	H	I	J	K	L	M	N	O	P	Q	R
1
2	M	M	M	M			M		M	M		28
3	A	A		M			A	A	M		F	32
Master

Cell Formulas
Range	Formula
R2:R3	R2	=SUM(SWITCH(G2:Q2,"M",4,"A",4,"F",8,0))

 

[Niekb22]

Hi & welcome to MrExcel.
Why not just use a formula?

+Fluff 1.xlsm
	G	H	I	J	K	L	M	N	O	P	Q	R
1
2	M	M	M	M			M		M	M		28
3	A	A		M			A	A	M		F	32
Master

Cell Formulas
Range	Formula
R2:R3	R2	=SUM(SWITCH(G2:Q2,"M",4,"A",4,"F",8,0))

Wow, was thinking way to hard
Thank you

 

[Fluff]

You're welcome & thanks for the feedback.