Mit folgendem Code:
Private Sub CommandButton2_Click()
If Me.TextBox1.Value = "" Then
MsgBox "Sie müssen ein Datum eingeben"
Exit Sub
End If
If Me.TextBox2.Value = "" Then
MsgBox "Sie müssen eine Anfangszeit eingeben "
Exit Sub
End If
If Me.TextBox3.Value = "" Then
MsgBox "Sie müssen eine Endzeit eingeben "
Exit Sub
End If
If Me.TextBox4.Value = "" Then
MsgBox "Sie müssen die Dauer der Spieleinheit berechnen "
Exit Sub
End If
If Me.TextBox6.Value = "" And Me.TextBox7.Value = "" Then
MsgBox "Sie müssen eine Eingabe zur Zahlung durch Marlis oder Frank tätigen"
Exit Sub
End If
Cells(Application.Match(CDbl(CDate(TextBox1.Value)), Columns(29), 0), 30) = TextBox2
Me.Hide
Cells(Application.Match(CDbl(CDate(TextBox1.Value)), Columns(29), 0), 32) = TextBox3
Me.Hide
Cells(Application.Match(CDbl(CDate(TextBox1.Value)), Columns(29), 0), 33) = TextBox4
Me.Hide
Cells(Application.Match(CDbl(CDate(TextBox1.Value)), Columns(29), 0), 36) = TextBox5
Me.Hide
Cells(Application.Match(CDbl(CDate(TextBox1.Value)), Columns(29), 0), 34) = TextBox6
Me.Hide
Cells(Application.Match(CDbl(CDate(TextBox1.Value)), Columns(29), 0), 35) = TextBox7
Me.Hide
frmDaten_Januar.Show vbModeless
End Sub
werden per UF Daten in ein Tabellenblatt geschrieben. Der Inhalt der TextBox4 errechnet sich durch die Inhalte der TextBox3 und 2, nach Klick auf eine Schaltfläche. Die Inhalte der TextBoxen 6 und 7 sind Zahlen wie z.B. 13,00 oder 9,00. Nach erfolgter Eingabe und das Eintragen in das Tabellenblatt soll mit den Werten gerechnet werden können. Wie muss ich den Code erweitern um die Inhalte der TextBoxen umzuwandeln?
Danke im Vorraus für eure Hilfe!
M. f. G. Frank H.