Gruppe
Dialog
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.
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