hat jemand eine Ahnung wie ich mit meiner Abfrage anhängig von einer Eingabe in eine Textbox diese Daten in meine Tabelle übernehmen kann? Leider weiß ich nicht wie ich unterschiedliche Textboxen mit Case auf Leer überprüfen soll und die nichtleeren in die Tabelle eintrage.
Jana
...
With frm2
Select Case ""
Case .TextBox2.Value ""
ActiveCell.Offset((j + 1), 1) = .TextBox1.Value & .TextBox2.Value & .TextBox3.Value & .TextBox4.Value
Case .TextBox6.Value ""
ActiveCell.Offset((j + 2), 1) = .TextBox5.Value & .TextBox6.Value & .TextBox7.Value & .TextBox8.Value
Case .TextBox10.Value ""
ActiveCell.Offset((j + 3), 1) = .TextBox9.Value & .TextBox10.Value & .TextBox11.Value & .TextBox12.Value
Case .TextBox14.Value ""
ActiveCell.Offset((j + 4), 1) = .TextBox13.Value & .TextBox14.Value & .TextBox15.Value & .TextBox16.Value
Case .TextBox18.Value ""
ActiveCell.Offset((j + 5), 1) = .TextBox17.Value & .TextBox18.Value & .TextBox19.Value & .TextBox20.Value
End Select
End With
...