Caption aus Zelle übernehmen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label
Bild

Betrifft: Caption aus Zelle übernehmen
von: Markus Stein
Geschrieben am: 17.02.2005 21:21:17
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

Bild

Betrifft: AW: Caption aus Zelle übernehmen
von: Ulf
Geschrieben am: 17.02.2005 21:40:28
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
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zahlenformate heraussuchen"