Sorry, zu schnell abgeschickt. Der Code funktioniert leider nicht wie dargestellt weil er die Ressouce nicht findet :(
Antwort
Antwort
Du musst die Variablen als "Double" definieren.
Dim Variablenname as Double
dann sollte es funktionieren.