Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

Überprüfen ob OptionButton13 oder 14 markiert

Betrifft: Überprüfen ob OptionButton13 oder 14 markiert von: Wolfgang
Geschrieben am: 21.12.2015 09:45:06

Hallo,
ich würde gerne erreichen, dass bei markiertem OptionButton2 überprüft wird, ob OptionButton13 oder 14 aktiv sind, wenn nein MsgBox. Ich habe verschiedene Versuche unternommen, bekomme es aber irgendwie nicht hin. Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang

  • Private Sub CommandButton1_Click()
       Dim ctrElement As Control
         For Each ctrElement In Me.Controls
          If TypeName(ctrElement) = "OptionButton" Then
             If ctrElement = True Then
                Selection = ctrElement.Caption
                Exit For
             End If
          End If
        
       If OptionButton3.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       Selection.Offset(0, 11) = "Nein" 'ctrElement = "Nein"
       End If
       
       If OptionButton6.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       Selection.Offset(0, 11) = "Nein" 'ctrElement = "Nein"
       End If
       
       If OptionButton7.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       Selection.Offset(0, 11) = "Nein" 'ctrElement = "Nein"
       End If
       If OptionButton8.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       Selection.Offset(0, 11) = "Nein" 'ctrElement = "Nein"
       End If
       
       If OptionButton9.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       End If
       
       If OptionButton4.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       End If
       
       If OptionButton5.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       Selection.Offset(0, 11) = "Nein" 'ctrElement = "Nein"
       End If
       
       If OptionButton10.Value = True Then
       Selection.Offset(0, 1) = "Ja" 'ctrElement = "Ja"
       End If
       
       If OptionButton11.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       End If
       If OptionButton12.Value = True Then
       Selection.Offset(0, 1) = "Nein" 'ctrElement = "Nein"
       Selection.Offset(0, 11) = "Nein" 'ctrElement = "Nein"
       End If
       
       Next ctrElement
      Unload Me
    End Sub

  •   

    Betrifft: AW: Überprüfen ob OptionButton13 oder 14 markiert von: mumpel
    Geschrieben am: 21.12.2015 10:02:41

    Hallo!

    Wenn OptionButton2 aktiv (true) ist sind alle anderen OptionButton automatisch inaktiv (false), denn es kann immer nur ein OptionButton aktiv sein, sofern es keine Gruppen gibt.

    Gruß, René


      

    Betrifft: AW: Überprüfen ob OptionButton13 oder 14 markiert von: selli
    Geschrieben am: 21.12.2015 10:37:43

    hallo wolfgang,

    so, wie du es wolltest.
    aber lass renés aussage nicht ungeachtet.

    If OptionButton2.Value = True And OptionButton13.Value = False and OptionButton14.Value = False Then
    MsgBox ....
    End If

    gruß
    selli


      

    Betrifft: Danke Selli und Rene von: Wolfgang
    Geschrieben am: 21.12.2015 11:20:24

    Hallo Selli,
    danke für Deine schnelle Rückmeldung. Zunächst: stimmt, ich hatte vergessen zu sagen, dass die OptionButton13 und 14 sich in einem getrennten Frame befinden. Habe Deine Ergänzungen soweit "eingebaut" und der Code macht nun genau das, was ich mir gewünscht hatte. Danke auch hierfür recht herzlich.
    Gruß und schon jetzt Frohe Feiertage
    Wolfgang


     

    Beiträge aus den Excel-Beispielen zum Thema "Überprüfen ob OptionButton13 oder 14 markiert"