hi andy,klappt immer noch nicht. irgendwas mache ich völlig falsch.
Ich geb dir mal den kompletten code für den commandbutton.
vielleicht fällt dir noch was ein.
Nobby
Private Sub CommandButton1_Click()
z = 4
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = Me.TextBox1
If IsEmpty(TextBox1) Then GoTo err:
End If
Cells(z, 2) = Me.TextBox2
If IsEmpty(TextBox2) Then GoTo err:
End If
Cells(z, 3) = Me.TextBox3
If IsEmpty(TextBox1) Then GoTo err:
End If
Cells(z, 4) = Me.TextBox4
If IsEmpty(TextBox1) Then GoTo err:
End If
Cells(z, 5) = Me.CheckBox1
If CheckBox1.Value = True Then
Cells(z, 5) = "x"
Else
Cells(z, 5) = ""
End If
Cells(z, 6) = Me.CheckBox2
If CheckBox2.Value = True Then
Cells(z, 6) = "x"
Else
Cells(z, 6) = ""
End If
Cells(z, 7) = Me.CheckBox3
If CheckBox3.Value = True Then
Cells(z, 7) = "x"
Else
Cells(z, 7) = ""
End If
Cells(z, 8) = Me.CheckBox4
If CheckBox4.Value = True Then
Cells(z, 8) = "x"
Else
Cells(z, 8) = ""
End If
Cells(z, 9) = Me.CheckBox5
If CheckBox5.Value = True Then
Cells(z, 9) = "x"
Else
Cells(z, 9) = ""
End If
Cells(z, 10) = Me.CheckBox6
If CheckBox6.Value = True Then
Cells(z, 10) = "x"
Else
Cells(z, 10) = ""
End If
Cells(z, 11) = Me.CheckBox7
If CheckBox7.Value = True Then
Cells(z, 11) = "x"
Else
Cells(z, 11) = ""
End If
Cells(z, 12) = Me.CheckBox8
If CheckBox8.Value = True Then
Cells(z, 12) = "x"
Else
Cells(z, 12) = ""
End If
Cells(z, 13) = Me.CheckBox9
If CheckBox9.Value = True Then
Cells(z, 13) = "x"
Else
Cells(z, 13) = ""
End If
Cells(z, 14) = Me.CheckBox10
If CheckBox10.Value = True Then
Cells(z, 14) = "x"
Else
Cells(z, 14) = ""
End If
Cells(z, 15) = Me.CheckBox11
If CheckBox11.Value = True Then
Cells(z, 15) = "x"
Else
Cells(z, 15) = ""
End If
Cells(z, 16) = Me.CheckBox12
If CheckBox12.Value = True Then
Cells(z, 16) = "x"
Else
Cells(z, 16) = ""
End If
Cells(z, 17) = Me.CheckBox13
If CheckBox13.Value = True Then
Cells(z, 17) = "x"
Else
Cells(z, 17) = ""
End If
Cells(z, 18) = Me.CheckBox14
If CheckBox14.Value = True Then
Cells(z, 18) = "x"
Else
Cells(z, 18) = ""
End If
Cells(z, 19) = Me.CheckBox15
If CheckBox15.Value = True Then
Cells(z, 19) = "x"
Else
Cells(z, 19) = ""
End If
Cells(z, 20) = Me.CheckBox16
If CheckBox16.Value = True Then
Cells(z, 20) = "x"
Else
Cells(z, 20) = ""
End If
Cells(z, 21) = Me.CheckBox17
If CheckBox17.Value = True Then
Cells(z, 21) = "x"
Else
Cells(z, 21) = ""
End If
Cells(z, 22) = Me.CheckBox18
If CheckBox18.Value = True Then
Cells(z, 22) = "x"
Else
Cells(z, 22) = ""
End If
Cells(z, 23) = Me.CheckBox19
If CheckBox19.Value = True Then
Cells(z, 23) = "x"
Else
Cells(z, 23) = ""
End If
Cells(z, 24) = Me.CheckBox20
If CheckBox20.Value = True Then
Cells(z, 24) = "x"
Else
Cells(z, 24) = ""
End If
Cells(z, 25) = Me.CheckBox21
If CheckBox21.Value = True Then
Cells(z, 25) = "x"
Else
Cells(z, 25) = ""
End If
Cells(z, 26) = Me.CheckBox22
If CheckBox22.Value = True Then
Cells(z, 26) = "x"
Else
Cells(z, 26) = ""
End If
Cells(z, 27) = Me.CheckBox23
If CheckBox23.Value = True Then
Cells(z, 27) = "x"
Else
Cells(z, 27) = ""
End If
Cells(z, 28) = Me.CheckBox24
If CheckBox24.Value = True Then
Cells(z, 28) = "x"
Else
Cells(z, 28) = ""
End If
Cells(z, 29) = Me.CheckBox25
If CheckBox25.Value = True Then
Cells(z, 29) = "x"
Else
Cells(z, 29) = ""
End If
Cells(z, 30) = Me.CheckBox26
If CheckBox26.Value = True Then
Cells(z, 30) = "x"
Else
Cells(z, 30) = ""
End If
Exit Sub
err:
MsgBox ("Bitte alle Textfelder vollständig ausfüllen!")
End Sub
End Sub