AW: Korrektur Klickpflicht Checkbox
11.01.2005 13:23:11
Dennis
Hallo,
danke für die Info/Hilfe.
habe es jetzt mit folgender Lösung gemacht, daß vor dem "senden" eine Sicherheitsabfrage gemacht wird. Dein Code bezieht sich auf alle Boxen und Frames.
Private Sub CommandButton1_Click()
Dim i As Integer
i = MsgBox _
("ACD-Skill gewählt und Häckchen bei 'Call' & 'Medium' gesetzt?", _
1 + vbQuestion, "Erfassen")
If i = 2 Then Exit Sub
Set frm = UserForm1
Sheets("Tabelle1").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .CheckBox1.Value
ActiveCell.Offset(0, 2).Value = .CheckBox2.Value
ActiveCell.Offset(0, 3).Value = .CheckBox3.Value
ActiveCell.Offset(0, 4).Value = .CheckBox4.Value
ActiveCell.Offset(0, 5).Value = .CheckBox5.Value
ActiveCell.Offset(0, 6).Value = .CheckBox6.Value
ActiveCell.Offset(0, 7).Value = .CheckBox7.Value
ActiveCell.Offset(0, 8).Value = .CheckBox8.Value
ActiveCell.Offset(0, 9).Value = .CheckBox9.Value
ActiveCell.Offset(0, 10).Value = .CheckBox10.Value
ActiveCell.Offset(0, 11).Value = .CheckBox11.Value
ActiveCell.Offset(0, 12).Value = .CheckBox12.Value
ActiveCell.Offset(0, 13).Value = .CheckBox13.Value
ActiveCell.Offset(0, 14).Value = .CheckBox14.Value
ActiveCell.Offset(0, 15).Value = .CheckBox15.Value
ActiveCell.Offset(0, 16).Value = .CheckBox16.Value
ActiveCell.Offset(0, 17).Value = .CheckBox17.Value
ActiveCell.Offset(0, 18).Value = .CheckBox18.Value
ActiveCell.Offset(0, 19).Value = .CheckBox19.Value
ActiveCell.Offset(0, 20).Value = .CheckBox20.Value
ActiveCell.Offset(0, 21).Value = .CheckBox21.Value
ActiveCell.Offset(0, 22).Value = .CheckBox22.Value
ActiveCell.Offset(0, 23).Value = .CheckBox23.Value
ActiveCell.Offset(0, 24).Value = .CheckBox24.Value
ActiveCell.Offset(0, 25).Value = .CheckBox25.Value
ActiveCell.Offset(0, 26).Value = .CheckBox26.Value
If .OptionButton1.Value = True Then
ActiveCell.Offset(0, 27).Value = "Internet"
Else
ActiveCell.Offset(0, 27).Value = "Print"
End If
End With
MsgBox "Daten wurden erfasst!", vbInformation, "Gesendet"
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName(tb) = "CheckBox" Then tb = False
If TypeName(tb) = "OptionButton" Then tb = False
Next tb
End Sub