Jeg vil gerne
sætte/slette et flueben. Hvordan fastholder jeg det i Userformen når denne
lukkes?
Det virker som om fluebenet optræder i 2 versioner. Det normale og når Userformen loades i en "Goostet" version.
Nedenstående kode
virker ikke efter hensigten.
Kan nogen komme med
et forslag.
Private Sub
CheckBox1_Click()
'MsgBox ("Dette
er verdien= " & CheckBox1.Value)
End Sub
Private Sub
UserForm_Initialize()
On Error Resume Next
CheckBox1.Value =
Evaluate("CheckBox1_Value")
End Sub
Private Sub
UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
ThisWorkbook.Names("CheckBox1_Value").Delete
ThisWorkbook.Names.Add
Name:="CheckBox1_Value", RefersToR1C1:="=" & Chr$(34)
& CheckBox1.Value & Chr$(34), Visible:=True 'False
End Sub