Hallo zusammen,

ich habe mal wieder ein kleines Laien-Problem :

Ich lasse über Textfelder (in denen nur Zahlen eingegeben werden können) Werte auf Integer Variablen speichern.

Diese sollen dann in einer Arbeitsmappe in bestimmte Zellen geschrieben werden.

Bei Dezimalzahlen kommt es nun zu einem Fehler, der früher noch nciht aufgetreten ist.

Gebe ich in ein beliebiges Textfeld eine Dezimalzahl ein, so spuckt er sie mir immer mit Faktor 1000 aus.

Komisch, oder?

Hier die betreffenden Quell-Code-Auszüge.

Ich bedanke mich schonmal im Vorraus!

'Variablendeklaration
Dim tl, ld, ha, er, cpe, a, tef, ka, ce, RTindex, taus As Integer


' Es können nur Zahlen in Textfelder eingegeben werden

Private Sub lufttemp_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57
        Case 44, 46
            KeyAscii = 44
            If InStr(1, lufttemp.Text, ",") Then KeyAscii = 0
        Case Else: KeyAscii = 0
    End Select
End Sub

'Löschen alter Daten
Worksheets("Input").Activate
    Cells(3, 2).ClearContents
    Cells(5, 2).ClearContents
    Cells(7, 2).ClearContents
    Cells(9, 2).ClearContents
    Cells(11, 2).ClearContents
    Cells(13, 2).ClearContents
    Cells(15, 2).ClearContents
    Cells(17, 2).ClearContents
    Cells(19, 2).ClearContents
    Cells(21, 2).ClearContents
    Cells(23, 2).ClearContents
    
    

'Übergabe aller Eingabewerte ins Tabellenblatt "Input"

    'eingegebene Werte auf Var. speichern

tl = lufttemp.Text
ld = luftdichte.Text
ha = raumh.Text
er = radius.Text
cpe = cp.Text
a = alpha.Text
tef = tf.Text
ka = K.Text
ce = C.Text
RTindex = RTI.Text
taus = ausloese.Text

    'Var in Zellen schreiben

Cells(3, 2) = tl
Cells(5, 2) = ld
Cells(7, 2) = ha
Cells(9, 2) = er
Cells(11, 2) = cpe
Cells(13, 2) = a
Cells(15, 2) = tef
Cells(17, 2) = ka
Cells(19, 2) = ce
Cells(21, 2) = RTindex
Cells(23, 2) = taus