Gruppe
Dialog
Bereich
Label
Thema
Zellinhalt als Label-Aufschrift in UserForm
Problem
Wie kann ich einen bestimmten Zellinhalt als Aufschrift eines Labelfeldes in einer UserForm vorgeben? Zeigt der Zellinhalt eine Fehlermeldung, soll diese nicht übernommen werden.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmWertAusZelle
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsError(Range("A1")) = False Then
lblTxt.Caption = Range("A1")
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmWertAusZelle.Show
End Sub