User Form Zahlenformat
Sunshine
ich habe ein funktionierendes UserForm geschrieben, wobei dieser Teil:
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 9) = Format _
(TextBox5.Value, "#0.00")
eine Zahl sein soll. Ich möchte damit in Excel rechnen. Die ursprüngliche Formatierung "text" habe ich durch value ersetzt. Excel rechnet aber trotzdem nicht. Weiß jemand wie das geht.
Danke
Sunshine
Private Sub CommandButton1_Click()
Dim erste_freie_Zeile As Integer
erste_freie_Zeile = Sheets("Stundenerfassung").Range("C65536").End _
(xlUp).Offset(1, 0).Row
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 3) = CDate _
(TextBox1.Text)
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 4) = CStr _
(TextBox2.Text)
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 5) = _
ComboBox1.Text
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 6) = CStr _
(TextBox3.Text)
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 7) = _
ComboBox2.Text
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 8) = _
ComboBox3.Text
Sheets("Stundenerfassung").Cells(erste_freie_Zeile, 9) = Format _
(TextBox5.Value, "#0.00")
Unload Me
UserForm1.Show
End Sub