Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
For Each CheckBox, Change Value
04.03.2008 01:17:48
Tobias
Hallo Forum,
ich hab da eine für euch sicherlich einfaches Problem:
Ich will über eine CheckBox den Status aller anderen CheckBoxen des Tabellenblatts steuern.
Hierzu bemühte ich folgenden code:
Dim cb As Object
If CheckBox1.Value = True Then
For Each cb In ActiveSheet.OLEObjects
If Left(cb.Name, 8) = "CheckBox" Then
If Len(cb.Name) = 9 Then
If Right(cb.Name, 1) "größer als" 4 Then
cb.Value = True
End If
Else: cb.Value = True
End If
End If
Next
End If
Allerdings lässt er mir das cb.Value nicht zu.
Könnt ihr mir bitte auf die Sprünge helfen - kommt grad einfach nicht auf die Lösung!
Danke & Gruß
Tobias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For Each CheckBox, Change Value
04.03.2008 07:48:00
Heiko
Hallo Tobias,
du hast das Object vergessen, siehe hier:

Private Sub CheckBox1_Click()
Dim cb As Object
If CheckBox1.Value = True Then
For Each cb In ActiveSheet.OLEObjects
If TypeName(cb.Object) = "CheckBox" Then
If (Len(cb.Name) = 9) And (Right(cb.Name, 1) >= 4) Then
cb.Object.Value = True
End If
End If
Next
End If
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige