VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

UserForm-Optionsfelder prüfen

Gruppe

Dialog

Bereich

OptionButton

Thema

UserForm-Optionsfelder prüfen

Problem

Wenn in einer UserForm im ersten Gruppenfeld das 2. und im 2. Das 3. Optionsfeld aktiviert sind, soll ein neues Tabellenblatt hinzugefügt werden.

Lösung

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




StandardModule: basMain

Sub CallForm()
   frmOptions.Show
End Sub

ClassModule: frmOptions

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iA As Integer, iB As Integer
   iA = opt(Frame1, 0)
   iB = opt(Frame2, 4)
   If iA = 2 And iB = 3 Then
      Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
   Else
      Beep
      MsgBox "Nein, ich tue nur was, wenn die " & _
         "Optionsfelder 2 und 3 aktiviert sind!"
   End If
End Sub

Private Function opt(fme As Frame, iAct As Integer) As Integer
   Dim iCounter As Integer
   For iCounter = 1 + iAct To 4 + iAct
      If fme.Controls("OptionButton" & iCounter).Value = True Then
         opt = iCounter - iAct
         Exit Function
      End If
   Next iCounter
End Function

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und OptionButton