You didn't include the warning messages that come out.
From a first skim, I suspect you need to make minimierungsfkt work only when it is given numerical arguments. See the URL link.
Applied to your code, try
minimierungsfkt[vin_?NumericQ, tin_?NumericQ] := ...
Attaching a notebook (.nb) file with enough code to run and duplicate the problem helps a lot.