UF OptionButton Gruppe prüefen

Private Sub CommandButton1_Click() With U1 bytZaehler = 0 For Each cb In .Controls Select Case TypeName(cb) Case "OptionButton" If Left(cb.Name, 8) = "optStamm" And cb.GroupName = "KD" Then lxl = 0 For lol = 1 To 2 If cb.Value = True Then lxl = lxl + 1 End If Next End If If lxl = 0 Then sTeilName = "Kundengruppe" GoTo msg End If If Left(cb.Name, 8) = "optStamm" And cb.GroupName = "P" Then lxl = 0 For lol = 1 To 2 If cb.Value = True Then lxl = lxl + 1 End If Next End If If lxl = 0 Then sTeilName = "Privatgruppe" GoTo msg End If End Select Next cb If lxl = 2 Then GoTo 0 msg: MsgBox "Sie haben in der Gruppe " & sTeilName & " nichts ausgewählt" End With 0 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() With U1 bytZaehler = 0 sTeilName = "" For Each cb In .Controls Select Case TypeName(cb) Case "OptionButton" If cb = True Then ' If Left(cb.Name, 8) = "optStamm" And cb.GroupName = "KD" Then ' lxl = 0 sTeilName = cb.Caption ' For lol = 1 To 2 ' If cb.Value = True Then ' lxl = lxl + 1 ' End If ' Next ' End If ' If lxl = 0 Then ' sTeilName = "Kundengruppe" ' Exit For ' End If ' If Left(cb.Name, 8) = "optStamm" And cb.GroupName = "P" Then ' lxl = 0 ' For lol = 1 To 2 ' If cb.Value = True Then ' lxl = lxl + 1 ' End If ' Next ' End If ' If lxl = 0 Then ' sTeilName = "Privatgruppe" ' Exit For ' End If End If End Select Next cb If sTeilName "" Then MsgBox "Sie haben in der Gruppe " & sTeilName & " nichts ausgew?hlt" End If End With End Sub

Hallo,
nun nochmal ein paar Ansätze von mir die beide nicht funktionieren.
Wo liegt der Fehler?
Danke!
Gruß
Sigi

Private Sub CommandButton4_Click()
Dim arr()  As Variant
bytZaehler = 0
For Each cb In U1.Controls
Select Case TypeName(cb)
Case "OptionButton"
arr = Array("optStamm_ZahlvorText", "optStamm_ZahlnachText")
For lol = 0 To UBound(arr)
If cb(arr(lol)).Value = False Then bytZaehler = bytZaehler + 1
Next lol
End Select
Next cb
If bytZaehler = 2 Then
MsgBox "fehler"
End If
End Sub

Private Sub CommandButton1_Click()
With U1
bytZaehler = 0
For Each cb In .Controls
For lol = 1 To 2
If TypeName(cb) = "OptionButton" And cb.GroupName = "KD" And cb.Value = false Then
bytZaehler = bytZaehler + 1
End If
Next
If bytZaehler = 2 Then
sTeilName = "Kunden"
GoTo msg
End If
Next cb
msg:
MsgBox "Sie haben in der Gruppe " & sTeilName & " nichts ausgewählt"
End With
0 End Sub

Private Sub CommandButton1_Click() Dim crt As Control Dim grp As Variant Dim Gruppen As Object Dim Erg As String Set Gruppen = CreateObject("Scripting.Dictionary") For Each crt In Me.Controls If TypeName(crt) = "OptionButton" Then grp = crt.GroupName If Gruppen.exists(grp) Then If crt.Value = True Then Gruppen(grp) = True Else Gruppen(grp) = crt.Value End If End If Next For Each grp In Gruppen.keys If Not Gruppen(grp) Then Erg = Erg & vbLf & grp Next If Erg = "" Then MsgBox "Alle Optionbuttongruppen ausgefüllt" Else MsgBox "Folgene Optionbuttongruppen müssen noch ausgewählt werden:" & Erg End If End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UF OptionButton Gruppe prüefen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread