Checkbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Checkbox
von: Ingo
Geschrieben am: 26.11.2015 10:39:55

Hallo
Ich habe ein Problem und weiß nicht wie ich den Code schreiben soll
-ich habe 10 Checkboxen in meiner UserForm
- jetzt soll geprüft werden ob eine checkbox aktiv ist, wenn nicht, dann soll das Makro abbrechen
Ich habe das jetzt so gelöst, aber das gefällt mir nicht
IF checkbox1=false and checkbox2=False and.......checkbox10=false then end sub
Geht das auch einfacher zu lösen ?
Grüße
Ingo

Bild

Betrifft: AW: Checkbox
von: Peter Feustel
Geschrieben am: 26.11.2015 10:51:33
Hallo Ingo,
das geht z. B. auch so:

Option Explicit
Private Sub CommandButton1_Click()
Dim iIndx  As Integer
Dim bAktiv  As Boolean
   For iIndx = 1 To 10
      If Controls("CheckBox" & iIndx) Then
         bAktiv = True
         Exit For
      End If
   Next iIndx
      
   If bAktiv Then
 '    tu etwas, eine Box ist aktiv
    Else
      Exit Sub
   End If
End Sub

Gruß Peter

Bild

Betrifft: AW: Checkbox
von: Ingo
Geschrieben am: 26.11.2015 19:59:16
Hallo Peter
Danke dir -- das hilft mir erst einmal weiter
Grüße
Ingo

Bild

Betrifft: Danke fürs Ignorieren :-(
von: Matthias L
Geschrieben am: 27.11.2015 08:22:20


Bild

Betrifft: AW: Checkbox
von: Matthias L
Geschrieben am: 26.11.2015 10:52:01
Hallo
als Ansatz:

Dim x
 For x = 1 To 10
  If Controls("Checkbox" & x).Value = True Then
   MsgBox "mim. eine Box ist aktiviert"
   Exit Sub
  Else
  End If
 Next
 MsgBox "alles ist deaktiviert"
Gruß Matthias

Bild

Betrifft: AW: Checkbox
von: Ingo
Geschrieben am: 27.11.2015 18:00:17
Hallo Matthias
ich wollte dich nicht ignorieren - ich hatte dann leider keine Zeit mehr.
ich komme jetzt auch erst wieder dazu was für meine Datei zu machen
entschuldige bitte
PS: deine Lösung ist auch recht gut -- danke dir
Grüße Ingo

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Checkbox"