Version um 0,1 erhöhen
23.11.2005 08:46:04
Eve
Ich will in Sheet1, Zelle J1 die Version number um 0.1 erhöhen.
Wenn jetzt Version 1.3 ist, muss nach die Code die Version 1.4 sein.
Irgendwie geht das nicht so.
Diese Error kommt bei Code von unten:
Run-time error '13':
Type mismatch
Wenn ich die Faktor auf 1 setzte geht es, nur mit decimal values geht nicht.
wieso? Wie muss ich machen?
Sub Version()
Const Faktor = "0,1"
Sheets("Sheet1").Activate
i = Range("J1").Value
i = i + Faktor
Range("J1").Value = i
End Sub
grosse dank an alle
regards Eve
Anzeige