Erfassungsbutton-UserForm

Question

Hallo Allseits,

Es geht um Folgendes:

In einer Userform habe ich folgenden Erfassungsbutton der bei Eingabe von Zahlen in den 5 Textboxen die Zahlen in die Tabelle als Text speichert.

Es wäre ein Hit, wenn der nachfolgende Code so abgeändert werden könnte, dass nach betätigen des Button die Zahlen auch in die Tabelle als Zahlen je nach Eingabe auch event. mit 2 Kommastellen übernommen würden.
Bis jetzt habe ich es im Nachhinein über >Daten >Text in Spalten...>Fertigstellen gemacht, ist aber auf Dauer mühsam.

Button:

Private Sub CommandButton1_Click()
Dim z As Integer
z = Range("A60000").End(xlUp).Row + 1
Cells(z, 1) = TextBox1.Value
Cells(z, 2) = TextBox2.Value
Cells(z, 3) = TextBox3.Value
Cells(z, 4) = TextBox4.Value
Cells(z, 5) = TextBox5.Value

End Sub

Für jede Hilfe in Form von Tipps, Hinweisen oder eventuell Lösung bedanke ich mich bereits im Voraus.


Gruß

Paul1

Answer 1

Moin,

Wenn Du vor dem Eintragen pruefst, ob der Inhalt der Textbox als Zahl interpretiert werden kann (isnumeric), dann laesst sich der "Text" mittels Typumwandlungsfunktionen (zb. CDbl) als Zahl in die Zelle bringen. Das koennte ungefaehr aussehen, wie folgt:

Private Sub CommandButton1_Click()
Dim z As Integer

z = Range("A60000").End(xlUp).Row + 1

If IsNumeric(TextBox1.Value) Then
Cells(z, 1) = CDbl(TextBox1.Value)
Else
Cells(z, 1) = TextBox1.Value
End If
If IsNumeric(TextBox2.Value) Then
Cells(z, 2) = CDbl(TextBox2.Value)
Else
Cells(z, 2) = TextBox2.Value
End If
If IsNumeric(TextBox3.Value) Then
Cells(z, 3) = CDbl(TextBox3.Value)
Else
Cells(z, 3) = TextBox3.Value
End If
If IsNumeric(TextBox4.Value) Then
Cells(z, 4) = CDbl(TextBox4.Value)
Else
Cells(z, 4) = TextBox4.Value
End If
If IsNumeric(TextBox5.Value) Then
Cells(z, 5) = CDbl(TextBox5.Value)
Else
Cells(z, 5) = TextBox5.Value
End If

End Sub

Cu
TheBlackBird ®

Answer 2

Hallo TheBlackBird ,

Danke für die Lösung, läuft wie geschmiert!


schönen Tag noch
mit Gruß

Paul1