AW: Option Button Eigenschaft speichern
17.07.2003 00:42:04
Knut
Mal ein Beispiel für 2 Checkboxen und eine Textbox.
In ein Standardmodul zum erstmaligen Anlegen der Eigenschaften:
Sub Userform1_zeigen()
On Error Resume Next
With ActiveWorkbook.CustomDocumentProperties
.Add Name:="CheckBox1", LinkToContent:=False, _
Type:=msoPropertyTypeBoolean, Value:=False
End With
With ActiveWorkbook.CustomDocumentProperties
.Add Name:="CheckBox2", LinkToContent:=False, _
Type:=msoPropertyTypeBoolean, Value:=False
End With
With ActiveWorkbook.CustomDocumentProperties
.Add Name:="TextBox1", LinkToContent:=False, _
Type:=msoPropertyTypeString, Value:=False
End With
On Error GoTo 0
UserForm1.Show
End Sub
In das Modul des userform:
Option Explicit
Private Sub UserForm_Activate()
CheckBox1 = ActiveWorkbook.CustomDocumentProperties("CheckBox1").Value
CheckBox2 = ActiveWorkbook.CustomDocumentProperties("CheckBox2").Value
TextBox1 = ActiveWorkbook.CustomDocumentProperties("Textbox1").Value
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWorkbook.CustomDocumentProperties("CheckBox1").Value = CheckBox1
ActiveWorkbook.CustomDocumentProperties("CheckBox2").Value = CheckBox2
ActiveWorkbook.CustomDocumentProperties("Textbox1").Value = TextBox1
End Sub
Knut