Thema: Zelltext als Aufschrift

Home

Abbildung - Zelltext als Aufschrift

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Zelltext in Label eintragen
Ablaufbeschreibung:
- Wenn Zelle A1 keinen Fehlerwert enthält...
- Textaufschrift festlegen

Code:


Private Sub UserForm_Initialize()
   If IsError(Range("A1")) = False Then
      lblTxt.Caption = Range("A1").Text
   End If
End Sub