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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen