type mismatch error in VBA, where is the mistake

Question

Hey I have no idea why I get an error "run time error 13 type mismatch". Thats my code and the place where I get an error:

My code VBA

Can anyone tel