text in zahl formatieren funkt. nicht
11.02.2022 13:11:42
unwissender
ich habe eine UF mit eingabemaske, die auf zahlen begrenzt ist - funktioniert super
Auszug:
Private Sub TextBox_VSumme_exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox_VSumme "" Then
If Not IsNumeric(TextBox_VSumme.Value) Then
MsgBox "Die Vertragssumme muss ein Zahlenwert sein!", vbExclamation, "Hinweis"
TextBox_VSumme.SelStart = 0
TextBox_VSumme.SelLength = Len(TextBox_VSumme)
Cancel = True
End If
End If
End Sub
übertrage ich die werte dann in eine excel tabelle mittels
TextBox_VSumme.Value = Format(Round(.Range("G" & suchzeile), 2), "#,##0.00") & " "
und
With Range("E1:G" & letzteZeile)
.NumberFormat = "General"
.Value = .Value
End With
steht im excel immer noch: ein text wert und kein Zahlenwertwas mache ich falsch?