Brauche Hilfe
08.03.2004 21:10:53
Hartmut
Habe folgenden Code für die UserForm:
Private Sub CommandButton1_Click()
Dim lgLetzte As Long
With Sheets("Tabelle1")
lgLetzte = .Range("A65536").End(xlUp).Row + 1
.Unprotect ""
.Cells(lgLetzte, 1) = Now
.Cells(lgLetzte, 2) = (CStr(TextBox2))
.Cells(lgLetzte, 3) = (CStr(TextBox3))
.Cells(lgLetzte, 4) = (CStr(TextBox4))
.Cells(lgLetzte, 5) = (CStr(TextBox5))
.Cells(lgLetzte, 6) = (CStr(TextBox6))
.Cells(lgLetzte, 7) = (CStr(TextBox7))
.Cells(lgLetzte, 8) = (CStr(TextBox8))
.Cells(lgLetzte, 9) = (CStr(TextBox9))
.Cells(lgLetzte, 10) = (CStr(TextBox10))
.Cells(lgLetzte, 11) = (CStr(TextBox11))
.Protect ""
End With
End Sub
Jetzt das Problem:
In den Texboxen sollen nur DezimalZahlen eingetragen werden, nur wenn ich diese Zahlen mit einem Komma eintrage werden sie nur als "Text" in die Tabelle übernommen. Muß also die Zahlen mit einem "Punkt" schreiben. Deshalb kann es zur Verwechselung kommen. Kann man auch für die Textbox Gültigkeiten (nur Zahlen)vorgeben, aber! es muss auch kein Eintrag möglich sein.