ich möchte Fragebögen auswerten.
Die ersten beiden Fragen sind Frau - JA (Zelle C6) - NEIN (Zelle D6)
Mann - JA (Zelle C7) - NEIN (Zelle D7)
Wie kann ich erzwingen, wenn jemand in C6 klickt, dass automatisch D7 angekreuzt wird?
Nachfolgend der bestehende Code
Private Sub Werteübertragen_Click()
Dim ShBew As Worksheet, ShEin As Worksheet
Dim Bereich As Range
Set ShBew = Sheets("Bewertung")
If ShBew.Range("C6") > "" Then
Set ShEin = Sheets("Frauen")
ElseIf ShBew.Range("C7") > "" Then
Set ShEin = Sheets("Männer")
Else
MsgBox "Da fehlt noch etwas!", , "Fehler!"
End If
Range("l5").Value = Range("l5").Value + 1
ShEin.Unprotect
For Each Bereich In ShBew.Range("C6:D25,C30:H49")
If Bereich > "" Then
ShEin.Range(Bereich.Address) = ShEin.Range(Bereich.Address) + 1
End If
Next Bereich
ShEin.Protect
End Sub