so, hab angefangen einige Routinen etwas zu optimieren )... im echten Code ist A natürlich eine errechnete Variable ...

immerhin habe ich es geschafft, dass der Code 5x schneller läuft....

Dim A As Word
Dim B As Word
Dim C As Word

A= 25000

'Beispiel 1 (braucht 282 Takte):
B=A/10
c=B*15

' Beispiel 2 (braucht 56 Takte):

B = A
Shift A , Right , 1
C = B + A


' Beispiel 3 (braucht 37 Takte):

C = A * 1.5

C ist dann allerdings 50000 nicht 37500...


' Beispiel 4 (656 Takte!!!!)

C = A * 1.5

C ist diesmal ne Single-Variable....


man kann da also doch noch ne Menge optimieren In diesem Fall ist die Shift-Methode auf jedenfall die richtige!