Zu nachtschlafender Zeit quäle ich mich mit 'nem Problem und benötige Hilfe: Folgende Codes benutze ich:
Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CDbl(CDate(TextBox13))
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CDbl(CDate(TextBox14))
Dies alles bis zur TextBox24. Also es gibt TextBox1 - 12 und 13 - 24 immer untereinander.
Wenn nun nach Aufruf der UF und erfogtem Eintag in TextBox1 und 13, der Rest an TextBoxen leer bleibt, dann sagt mir VBA Typen unverträglich. Wie fogt werden die Daten aus den TextBoxen in das Tabellenblatt geschrieben:
Range("AT34").Value = TextBox1.Value
Range("AT35").Value = TextBox2.Value
Range("AT36").Value = TextBox3.Value
Range("AT37").Value = TextBox4.Value
Range("AT38").Value = TextBox5.Value
Range("AT39").Value = TextBox6.Value
Range("AT40").Value = TextBox7.Value
Range("AT41").Value = TextBox8.Value
Range("AT42").Value = TextBox9.Value
Range("AT43").Value = TextBox10.Value
Range("AT44").Value = TextBox11.Value
Range("AT45").Value = TextBox12.Value
Range("AV34").Value = TextBox13.Value
Range("AV35").Value = TextBox14.Value
Range("AV36").Value = TextBox15.Value
Range("AV37").Value = TextBox16.Value
Range("AV38").Value = TextBox17.Value
Range("AV39").Value = TextBox18.Value
Range("AV40").Value = TextBox19.Value
Range("AV41").Value = TextBox20.Value
Range("AV42").Value = TextBox21.Value
Range("AV43").Value = TextBox22.Value
Range("AV44").Value = TextBox23.Value
Range("AV45").Value = TextBox24.Value
Was muss ich tun, um mein hoffentlich gut beschriebenes, Problem zu lösen?
Danke für eure Hilfe!!!
Gruß Frank H.