Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Checkbox

Checkbox
26.11.2015 10:39:55
Ingo
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkbox
26.11.2015 10:51:33
Peter
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

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

Danke fürs Ignorieren :-(
27.11.2015 08:22:20
Matthias

AW: Checkbox
26.11.2015 10:52:01
Matthias
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

Anzeige
AW: Checkbox
27.11.2015 18:00:17
Ingo
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige