Thema: Caption aus Zelle übernehmen

Caption aus Zelle übernehmen
Kurze Frage.
Ich möchte in einer Userform die 'Caption' für ein Bezeichnungs-Feld aus einer Tabellenzelle übernehmen. (Bei Änderung dieser Zelle soll sich automatisch auch die Bezeichnung ändern)
Geht das, und wenn ja wie?
Vielen dank
Markus

Ins Modul der Tabell:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If UserForm1.Visible Then UserForm1.Label1 = [a1]
End If
End Sub

Ins Modul des userforms:

Private Sub UserForm_Activate()
Label1 = Sheets("Tabelle1").[a1]
End Sub

Ulf

Caption aus Zelle übernehmen
Kurze Frage.
Ich möchte in einer Userform die 'Caption' für ein Bezeichnungs-Feld aus einer Tabellenzelle übernehmen. (Bei Änderung dieser Zelle soll sich automatisch auch die Bezeichnung ändern)
Geht das, und wenn ja wie?
Vielen dank
Markus

Ins Modul der Tabell:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If UserForm1.Visible Then UserForm1.Label1 = [a1]
End If
End Sub

Ins Modul des userforms:

Private Sub UserForm_Activate()
Label1 = Sheets("Tabelle1").[a1]
End Sub

Ulf