Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-Elemente auslesen

Gruppe

Label

Problem

Wie kann ich die Caption- bzw. Text-Eigenschaften der Elemente einer UserForm auslesen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmAuslesen

Private Sub cmdAuslesen_Click()
   Dim cntLabel As Control, cntText As Control
   Dim arr(1 To 2, 1 To 4)
   Dim iCounterA As Integer, iCounterB As Integer
   For iCounterA = 1 To 2
      For iCounterB = 1 To 4
         If iCounterA = 1 Then
            arr(iCounterA, iCounterB) = _
               Controls("lblLC" & iCounterB).Caption
         Else
            arr(iCounterA, iCounterB) = _
               Controls("txtLC" & iCounterB).Text
         End If
      Next iCounterB
   Next iCounterA
   For iCounterA = 1 To 2
      For iCounterB = 1 To 4
         If iCounterA = 1 Then
            MsgBox "Das " & iCounterB & ". Label hat den Wert: " _
               & arr(iCounterA, iCounterB)
         Else
            MsgBox "Das erste " & iCounterB & _
               ". Textfeld hat den Wert: " & _
               arr(iCounterA, iCounterB)
         End If
      Next iCounterB
   Next iCounterA
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmAuslesen.Show
End Sub