Zitat Zitat von Bongo1st
-Dim Wert As Word
1.88888888888 ; Wert =2
Klar
Schreib doch mal genauer, was du hier machst. Meinst du so?

Dim Wert as Word
Wert = 1.88888888888

Dann ist Wert ja nicht 2 sondern 1

Genau so hier:
Zitat Zitat von Bongo1st
-Dim A As Word
Dim Wert As Single
1.88888888888 * 10 ; A =18
18/10 ; Wert = 1.8
Die effektive Ausgabe ist: 1.7999999995

-Dim Wert As ______?
1.88888888888 ; Wert =1
Kennst du die Round() Funktion?