Abzug Wert über mehrere Zellen

[RPP63]

Ich will mal auflösen.
Selbst folgendes läuft in einen Überlauf:

Code:

Sub Byte_Long()
Const a As Byte = 199
Const b As Byte = 58
Dim c As Long
c = a + b
End Sub

Folgendes nicht:

Code:

Sub Byte_Integer_Long()
Const a As Byte = 199
Const b As Integer = 58
Dim c As Long
c = a + b
End Sub

Bedeutet:
Eine Rechenoperation mit Datentypen liefert immer einen Datentyp des "größten" Datentyps der Operation!
Die Variablen-Dimension, der das Ergebnis zugewiesen werden soll, ist dabei völlig unerheblich!

(hat aber schon manche in die Tischkante beißen lassen)
Deshalb (auch) mein Rat:
Immer großzügig dimensionieren!

Gruß Ralf