Textbox Prozentformt als Zahl in Zelle
thowe
Sub tb_prozent_formatieren()
Dim tb As Object
Dim betrag As Double
For Each tb In Frame1.Controls
If TypeName(tb) = "TextBox" Then
If tb.Name = "pkw_kk_tb" Or tb.Name = "pkw_tk_tb" Then
If IsNumeric(tb.text) Then
betrag = (CDec(tb.text) / 100)
tb.text = Format(betrag, "#.00%")
End If
End If
End If
Next
....
End Sub
mit foldender Prozedur werden diese Werte in die dafür vorgesehene Zelle geschrieben.
Private Sub pkw_einfuegen_cmd_Click()
Dim blatt As Worksheet
Dim i As Integer
Dim wert As Integer
Set blatt = Sheets("2_basisdaten")
blatt.Activate
i = 0
pkw_einfuegen_cmd.Visible = False
pkw_aendern_cmd.Visible = True
For Each tb In Frame1.Controls
If TypeName(tb) = "TextBox" Then
tb.Enabled = False
i = i + 1
If i Wenn die Textbox einen Prozentwert hat (also Format(tb_text), "#.00%") dann erhält die Zelle offensichtlich einen "string" (ich weiß Textboxen sind immer string). Wie muss ich im 2. Code (Sub pkw_einfuegen_cmd_Click()) ab
Else: vorgehen, damit ein Zahlnwert in die Zelle geschreiben wird?
VAL taugt nicht, CDec führt zu Laufzeitfehler....
Mit der Bitte um hilfe, Danke!