Danke
Renate
Sub CommandButton1_Click()
Dim LRow As Long
'letzte Zeile mit Eintag in Tab2, SpalteA:
LRow = Sheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Formular")
'wenn Textboxes nicht leer dann Einträge nach Tab2:
If .TextBox1 <> "" And .TextBox2 <> "" Then
Sheets("Zusammenfassung").Cells(LRow + 1, 1) = .TextBox1
Sheets("Zusammenfassung").Cells(LRow + 1, 2) = .TextBox2
Sheets("Zusammenfassung").Cells(LRow + 1, 15) = .TextBox3
Sheets("Zusammenfassung").Cells(LRow + 1, 16) = .TextBox4
Sheets("Zusammenfassung").Cells(LRow + 1, 17) = .TextBox5
Sheets("Zusammenfassung").Cells(LRow + 1, 18) = .TextBox6
Sheets("Zusammenfassung").Cells(LRow + 1, 19) = .TextBox7
Sheets("Zusammenfassung").Cells(LRow + 1, 25) = .TextBox8
Sheets("Zusammenfassung").Cells(LRow + 1, 31) = .TextBox9
Sheets("Zusammenfassung").Cells(LRow + 1, 38) = .TextBox10
Sheets("Zusammenfassung").Cells(LRow + 1, 42) = .TextBox11
Sheets("Zusammenfassung").Cells(LRow + 1, 43) = .TextBox12
Sheets("Zusammenfassung").Cells(LRow + 1, 3) = .CheckBox1
Sheets("Zusammenfassung").Cells(LRow + 1, 4) = .CheckBox2
Sheets("Zusammenfassung").Cells(LRow + 1, 5) = .CheckBox3
Sheets("Zusammenfassung").Cells(LRow + 1, 6) = .CheckBox4
Sheets("Zusammenfassung").Cells(LRow + 1, 7) = .CheckBox5
Sheets("Zusammenfassung").Cells(LRow + 1, 13) = .CheckBox6
Sheets("Zusammenfassung").Cells(LRow + 1, 8) = .CheckBox7
Sheets("Zusammenfassung").Cells(LRow + 1, 9) = .CheckBox8
Sheets("Zusammenfassung").Cells(LRow + 1, 10) = .CheckBox9
Sheets("Zusammenfassung").Cells(LRow + 1, 11) = .CheckBox10
Sheets("Zusammenfassung").Cells(LRow + 1, 12) = .CheckBox11
Sheets("Zusammenfassung").Cells(LRow + 1, 14) = .CheckBox12
Sheets("Zusammenfassung").Cells(LRow + 1, 20) = .CheckBox13
Sheets("Zusammenfassung").Cells(LRow + 1, 21) = .CheckBox14
Sheets("Zusammenfassung").Cells(LRow + 1, 22) = .CheckBox15
Sheets("Zusammenfassung").Cells(LRow + 1, 23) = .CheckBox16
Sheets("Zusammenfassung").Cells(LRow + 1, 24) = .CheckBox17
Sheets("Zusammenfassung").Cells(LRow + 1, 26) = .CheckBox18
Sheets("Zusammenfassung").Cells(LRow + 1, 27) = .CheckBox19
Sheets("Zusammenfassung").Cells(LRow + 1, 28) = .CheckBox20
Sheets("Zusammenfassung").Cells(LRow + 1, 29) = .CheckBox21
Sheets("Zusammenfassung").Cells(LRow + 1, 30) = .CheckBox22
Sheets("Zusammenfassung").Cells(LRow + 1, 32) = .CheckBox23
Sheets("Zusammenfassung").Cells(LRow + 1, 33) = .CheckBox24
Sheets("Zusammenfassung").Cells(LRow + 1, 34) = .CheckBox25
Sheets("Zusammenfassung").Cells(LRow + 1, 35) = .CheckBox26
Sheets("Zusammenfassung").Cells(LRow + 1, 36) = .CheckBox27
Sheets("Zusammenfassung").Cells(LRow + 1, 37) = .CheckBox28
Sheets("Zusammenfassung").Cells(LRow + 1, 39) = .CheckBox29
Sheets("Zusammenfassung").Cells(LRow + 1, 40) = .CheckBox30
Sheets("Zusammenfassung").Cells(LRow + 1, 41) = .CheckBox31
For b = 1 To 12
ActiveSheet.OLEObjects("TextBox" & b).Object.Value = ""
Next b
For a = 1 To 31
ActiveSheet.OLEObjects("CheckBox" & a).Object.Value = False
Next a
Else: MsgBox "bitte alle Felder ausfüllen"
End If
End With
End Sub