Hallo liebe Experten und Wissenden,
ich habe ein Problem, ich wäre extrem dankbar wenn ihr mir da helfen würdet, weil ich nähmlich verzweifelt bin ;(
Ich habe in Excel ein UserFrom aufgebaut in das ich Daten eingeben und per Knopfdruck in die Exceltabelle eintragen kann. Nun habe ich ein Problem:
wenn ich in der UserForm eine Zahl eintrage wie „2,5“ oder „2,568“, dann wird die Zahl genau so übertragen in die Tabelle, doch wenn ich eine Zahl eintrage wie „245,568“, dann erscheint diese Zahl in Excel wie 245.568, also nicht mit Komma, sondern als ganze Zahl. Ich denke Mal, dass VB nur Zahlen als Text überträgt und keine Differenzierung bei „,“ macht.
Wie kann ich dieses lösen? Bitte, Bitte, Bitte!
Ich danke euch!
Beste Grüße aus Köln!
Hallo,
das Problem ist, dass von Textbox ein String geliefert wird. Wandel den erst einmal um z.B. mit CDbl() bzw. CInt(), CLng …, dann erhälst Du eine Zahl.
Gruß, Bernd
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
!! Hilfe !
Hallo Bernd,
da ich eigentlich ein VBA-Neuling bin, wäre ich dir dankbar, wenn du mir da etwas zur Seite stehen würdest. Hier ist mein Quelltext:
Private Sub CommandButton3_Click()
Sheets(„Eingabemasken“).Activate
Cells(54, 3).Value = Me.TextBox1.Value
Cells(55, 3).Value = Me.TextBox2.Value
Cells(56, 3).Value = Me.TextBox3.Value
Cells(57, 3).Value = Me.TextBox4.Value
Cells(58, 3).Value = Me.TextBox5.Value
Cells(59, 3).Value = Me.TextBox6.Value
Cells(61, 3).Value = Me.TextBox7.Value
Cells(62, 3).Value = Me.TextBox8.Value
Cells(63, 3).Value = Me.TextBox9.Value
Cells(64, 3).Value = Me.TextBox10.Value
Cells(65, 3).Value = Me.TextBox11.Value
Cells(66, 3).Value = Me.TextBox12.Value
Cells(67, 3).Value = Me.TextBox13.Value
Cells(70, 3).Value = Me.TextBox14.Value
Cells(71, 3).Value = Me.TextBox15.Value
Cells(74, 3).Value = Me.TextBox16.Value
Cells(75, 3).Value = Me.TextBox17.Value
Cells(76, 3).Value = Me.TextBox18.Value
Cells(79, 3).Value = Me.TextBox19.Value
Cells(80, 3).Value = Me.TextBox20.Value
Cells(83, 3).Value = Me.TextBox21.Value
Cells(84, 3).Value = Me.TextBox22.Value
'Formular zurücksetzen
Dim tb As Object
With UserForm3
For Each tb In .Controls
If TypeName(tb) = „TextBox“ Then tb.Text = „“
Next tb
End With
End Sub
Wie du siehst ist es nichts besonderes, könntest du mir netterweise helfen? Danke, vielen vielen Dank!!!
Beste Grüße aus Köln!