Hallo Leon,
das nächste mal bitte gleich mit angeben.
Im Initialize-Ereignis deiner Userform:
Private Sub UserForm_Initialize()
Me.CheckBox1.Caption = Worksheets("Einstellungen").Range("A1")
End Sub
Du kannst auch bei geöffneter Userform die Caption ändern durch Eingabe in Einstellungen A1.
Dazu musst du in den Eingenschaften der Userform ShowModal auf False stellen. Dadurch kannst du in der Tabelle arbeiten, obwohl die Userform angezeigt wird.
Folgender Code im Codemodul vom Blatt "Einstellungen"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
UserForm1.CheckBox1.Caption = Target
End If
End Sub
Gruß Werner
|