Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellinhalt als Label-Aufschrift in UserForm

Gruppe

Label

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