Hallo,
kommt darauf an, in welcher Form du die Zahlen brauchst -Ganzzahl
ActiveCell.Offset(0, 6).Value = CLng(frmProvida.txtMessstundenLand)
ActiveCell.Offset(0, 7).Value = CLng(frmProvida.txtPkw)
oder mit Nachkommastellen
ActiveCell.Offset(0, 6).Value = CDbl(frmProvida.txtMessstundenLand)
ActiveCell.Offset(0, 7).Value = CDbl(frmProvida.txtPkw)
Allerdings solltest du in beiden Versionen besser noch eine Prüfung voranstellen, ob es sich auch um eine Zahl handelt, was da in den Textboxen ist.
If IsNumeric(frmProvida.txtMessstundenLand) Then
ActiveCell.Offset(0, 6).Value = CDbl(frmProvida.txtMessstundenLand)
ActiveCell.Offset(0, 7).Value = CDbl(frmProvida.txtPkw)
Else
MsgBox "Achtung, Wert in Textbox ist keine Zahl."
End If
Gruß Werner
|