Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CheckBox

CheckBox
04.10.2004 13:24:21
Erik
Hallo Excelfans,
Wer kann kurz helfen ?
Ich habe folgendes Problem,
auf Userform1 befinden sich 9 Checkboxen,
wenn Checkbox9.Value = False
soll der Wert der Checkboxen 1 bis 8 ebenfalls auf false gesetzt werden.
Habe das ganze wie folgt probiert !
Funktioniert aber nicht !

Private Sub CheckBox9_Click()
Dim i As Integer
For i = 1 To 8
If CheckBox9.Value = False Then
CheckBoxes(i).Value = False
End If
Next
End Sub

mfg Erik

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

Betreff
Datum
Anwender
Anzeige
AW: CheckBox
EtoPHG
Hallo Erik,
Quick and Dirty:

Private Sub CheckBox9_Click()
If CheckBox9.Value = False Then
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
CheckBox8.Value = False
End If
End Sub

Gruss Hansueli
Nicht quick aber dirty oT
Piet
p
AW: CheckBox
04.10.2004 13:34:56
erik
Hallo Hansueli,
das hatte ich auch schon probiert,
da ich noch mehr solcher Checkboxen habe,
wollte ich das mit (i) abkürzen.
Gibt es hierfür keine Möglichkeit ?
erik
AW: CheckBox
Ulf
Gibt es, z.B. alle Antworten lesen.
Ulf
Anzeige
AW: CheckBox
Ulf
Option Explicit

Private Sub CheckBox9_Click()
Dim i As Byte
For i = 1 To 8
If Controls("CheckBox" & 1) = False Then
Controls("Checkbox" & i) = False
End If
Next
End Sub

Ulf
AW: CheckBox
04.10.2004 13:57:13
erik
Hallo Ulf,
danke für die Hilfestellung,
es gibt allerdings ein Problem mit Checkbox1,
dieser wird bei der Änderung nicht mit erfasst 1
erik
AW: CheckBox
Ulf
Kleiner Tippfehler:

Private Sub CheckBox9_Click()
Dim i As Byte
For i = 1 To 8
If Controls("CheckBox" & 9) = False Then
Controls("Checkbox" & i) = False
End If
Next
End Sub

Ulf
Anzeige
AW: CheckBox
Uduuh
Hallo Ulf,
warum machst du die Prüfung von Checkbox9 innerhalb der Schleife?

Private Sub CheckBox9_Click()
Dim i As Byte
If CheckBox9 = False Then
For i = 1 To 8
Controls("Checkbox" & i) = False
Next
End If
End Sub

Gruß aus'm Pott
Udo
AW: CheckBox
04.10.2004 14:05:59
erik
Hallo Ulf,
alles bestens !
Danke !
erik

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige