Kun en checkbox markeret af gangen

Med Radio button kan du ved hjælp af Groupname få denne funktionalitet. Ved ik hvordan det fungere med word.

Hej.

Jeg bruger ikke VBA men VB6, så jeg ved ikke om dette er muligt.

Private Sub Check1_Click()
  If checkbox1.value = 1 then  checkbox2.value = 0
End Sub

Private Sub Check2_Click()
  If checkbox2.value = 1 then  checkbox1.value = 0
End Sub

Damn, det virker ikke, andre foreslag?

Private Sub Check1_Click()
  If checkbox1 then  checkbox2=false
End Sub

Private Sub Check2_Click()
  If checkbox2 then  checkbox1=false
End Sub

Nb husk at  det før _ i 'Check1_Click', skal svare til checkbox'ens navn

Følgende virker ikke:

Private Sub CheckBox1_Click()
If CheckBox1 Then CheckBox2 = False
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 Then CheckBox1 = False
End Sub

Mangler der ikke også noget efter dette:  If CheckBox1.... Then CheckBox2 = False

Virker fint i Word 2003 her

Nej der mangler ikke noget
en CheckBox er enten True eller False

Så koden siger

hvis sand så

Mærkeligt, bruger også 2003....

Har prøvet med denne kode også, men der kommer en "end if without block if" fejl

Private Sub CheckBox1_Click()
If CheckBox1.Value = 1 Then CheckBox2.Value = 0
End If
If CheckBox1.Value = 0 Then CheckBox2.Value = 1
End If
End Sub

Private Sub CheckBox2_Click()
  If CheckBox2.Value = 1 Then CheckBox1.Value = 0
  End If
  If CheckBox2.Value = 0 Then CheckBox1.Value = 1
  End If
End Sub

du skal ikke have en end if, da det står på linie

Private Sub CheckBox1_Click()
If CheckBox1.Value = 1 Then CheckBox2.Value = 0

If CheckBox1.Value = 0 Then CheckBox2.Value = 1

End Sub

Private Sub CheckBox1_Click()
  If CheckBox1.Value = 1 Then
    CheckBox2.Value = 0
  else
  CheckBox2.Value = 1
end if
End Sub

sådan kan det også skrives

Okay, men fik næsten din kode til at virke, men man kan stadig vælge begge to, hvordan gør jeg det?

Private Sub CheckBox1_Click()
If CheckBox1 = True Then CheckBox2 = False
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then CheckBox1 = False
End Sub

Funktioner > Makro > Sikkerhed, den skal stå til lav
når du har gjort det skal Word lukkes og genstartes

Havde jeg prøvet, men fandt selv ud af resten, startværdien kan jo være true ELLER false, men du fik mig i den helt rigtige retning, tusind og smid lige et svar ;o)

Private Sub CheckBox1_Click()
If CheckBox1 = True Then CheckBox2 = False
If CheckBox1 = False Then CheckBox2 = True
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then CheckBox1 = False
If CheckBox2 = False Then CheckBox1 = True
End Sub

et svar, men den burde virke med:

Private Sub CheckBox1_Click()
If CheckBox1  Then CheckBox2 = False
else
CheckBox2 = True
end if
End Sub

Private Sub CheckBox2_Click()
If CheckBox2  Then
CheckBox1 = False
else
CheckBox1 = True
end if
End Sub

;-))

Private Sub CheckBox1_Click()
If CheckBox1  Then
CheckBox2 = False
else
CheckBox2 = True
end if
End Sub

Private Sub CheckBox2_Click()
If CheckBox2  Then
CheckBox1 = False
else
CheckBox1 = True
end if
End Sub