ich übergebe in einer Textbox mit folgender Formel den Inhalt dieser Textbox als Stundenformat in die Tabelle
Cells(4, 2) = CDate(TextBox2)
Was muss ich ändern um
a) Prozentformat
b) Währungsformat
zu erhalten.
Danke für Eure Hilfe
Gruß
Claudia
Private Sub CommandButton1_Click()
TextBox3 = CDbl(TextBox1) * CDbl(TextBox2)
End Sub
Private Sub CommandButton2_Click()
Dim frm As UserForm
Set frm = UserForm5
Sheets("JAN").Activate
With frm
If TextBox1 = "" Then GoTo fehler:
Cells(1, 7) = CDbl(TextBox1) / 10000
fehler:
If TextBox2 = "" Then GoTo fehlera:
Cells(2, 7) = CDbl(TextBox2) / 10000
fehlera:
If TextBox3 = "" Then GoTo fehlerb:
Cells(3, 7) = CDbl(TextBox3) / 10000
fehlerb:
If TextBox4 = "" Then GoTo fehlerc:
Cells(4, 7) = CDbl(TextBox4) / 10000
fehlerc:
If TextBox5 = "" Then GoTo fehlerd:
Cells(7, 2) = CDbl(TextBox5) / 100
fehlerd:
End With
Unload Me
End Sub