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

Aaaahhhh.....gallopierende Dummheit bei CHECK BOX

Aaaahhhh.....gallopierende Dummheit bei CHECK BOX
30.06.2005 09:29:26
R.Schmitt
Guten Morgen,
hmmmm - das ist ja fast schon peinlich.
Ich möchte gerne alle auf einem Arbeitsblatt
befindlichen CheckBoxes ein, bzw ausschalten.
Noch lieber in Abhängigkeit der Bedingung ob
die Box gerade sichtbar ist oder nicht.
Nun klappt aber noch nicht mal das einfachste
vom Einfachen, nämlich die Dinger ein- bzw.
auszuschalten.
CheckBoxes und Makro in der Datei anbei.
https://www.herber.de/bbs/user/24329.xls
Wenn ich über besagtes Makro versuche, alle
mit einem Hacken zu versehen - passiert zumindest
bei mir - überhaupt nichts.
Für Hilfe Herzlichen Dank
, daß ich mich wahrscheinlich gerade wieder
gedanklich im Kreis drehe ist mir selber klar (**grummel**)
R.Schmitt

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aaaahhhh.....gallopierende Dummheit bei CHECK BOX
30.06.2005 09:59:59
Heiko
Hallo R. Schmitt,
z.B. so,

Sub ckeckboxes1()
Dim I As Integer
For I = 1 To 13
ActiveSheet.OLEObjects("CheckBox" & CStr(I)).Object.Value = False
Next I
End Sub

oder so.

Sub checkboxes2()
Dim objO As OLEObject
' Alle OLEObjecte im aktiven Arbeitsblatt durchlaufen.
For Each objO In ActiveSheet.OLEObjects
' Wenn dabei eine Combobox gefunden wird dann darauf die Aktion ausführen.
If TypeName(objO.Object) = "CheckBox" Then
If objO.Visible = True Then
objO.Object.Value = False
End If
End If
Next objO
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
Funktioniert !!
30.06.2005 10:24:43
R.Schmitt
Hallo Lieber Heiko,
habe beide soeben eingebaut, modifiziert und
getestet. Klappt alles prima, wobei ich immer
noch keine Ahnung habe, woran es bei meinem
Code lag. Werde es mir aber bei Gelegenheit
nochmals ansehen.
Viele Grüße
R.Schmitt

35 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige