Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Checkbox in Zellen

4 views
Skip to first unread message

Jochen Walerka

unread,
Apr 19, 2007, 8:30:45 AM4/19/07
to
Hallo,

gibt es so etwas wie Checkboxen für Zellen?
Ich kann das auch ganz profan lösen, indem ich die betreffende Spalte
z.B. auf vorkommende "X" abfrage. Aber sieht unschön aus und hier
bricht wieder der Excel-Monk aus mir heraus.

Jo

Jochen Walerka

unread,
Apr 19, 2007, 9:06:55 AM4/19/07
to
Nachtrag:

Gelöst habe ich das jetzt mit den Checkboxen aus der Steuerelemente-
Toolbox.
Jetzt stellt sich die Frage: Wie speche ich die einzelnen Checkboxen
in einer Schleife in VBA an?
Die Dinger heissen "Checkbox1" ... "Checkboxn"

Jo

frankarendt-theilen

unread,
Apr 19, 2007, 9:16:22 AM4/19/07
to
Hallo Jochen,
folgender Codeschnipsel:

For Each objOLEObject In Tabelle1.OLEObjects
If objOLEObject.progID = "Forms.CheckBox.1" Then
'...deine Aktion
End If
Next


Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen

--
(ehem. MVP für Excel)
Website: www.xl-faq.de

Melanie Breden

unread,
Apr 19, 2007, 9:18:34 AM4/19/07
to
Hallo Jo,

"Jochen Walerka" <jochen....@gmx.de> schrieb:

um zum Beispiel alle CheckBoxen zurückzusetzen verwende folgende Schleife:

Public Sub ResetCheckBoxen()
Dim obj As Object

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" Then
obj.Object.Value = False
End If
Next obj
End Sub


Mit freundlichen Grüssen
Melanie Breden

--
- Microsoft MVP für Excel -
www.melanie-breden.de

Jochen Walerka

unread,
Apr 19, 2007, 9:33:05 AM4/19/07
to
Hallo Melanie und Frank,

danke für die Schnipsel, aber das kann so nicht klappen:

Checkbox1 steht in Zeile 11
...
Checkbox21 steht in Zeile 31

Ich brauche eine Zuordnung von Checkboxn zu Zeile n+10, ungefähr so:

for i=1 to 21
if Checkboxi then "mache was mit Zelle (ï+10, 2)
next

In VB kann man Steuerelemente inizieren, in Excel geht das wohl nicht,
oder?

Jo

Melanie Breden

unread,
Apr 19, 2007, 9:49:20 AM4/19/07
to
Hallo Jo,

"Jochen Walerka" <jochen....@gmx.de> schrieb:

> danke für die Schnipsel, aber das kann so nicht klappen:

willst du die Zeilen ermitteln, in der die CheckBoxen platziert sind?
Dann versuche es wie folgt:

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" Then

' Zeile der CheckBox
Debug.Print obj.TopLeftCell.Row
End If
Next obj

Jochen Walerka

unread,
Apr 19, 2007, 10:34:57 AM4/19/07
to
On 19 Apr., 15:49, "Melanie Breden" <Melanie.Bre...@mvps.org> wrote:
> willst du die Zeilen ermitteln, in der die CheckBoxen platziert sind?
> Dann versuche es wie folgt:
>
> Debug.Print obj.TopLeftCell.Row

Das ist Klasse, danke!

Jo

Melanie Breden

unread,
Apr 20, 2007, 1:36:59 AM4/20/07
to
Hallo Jo,

"Jochen Walerka" <jochen....@gmx.de> schrieb:

>> Debug.Print obj.TopLeftCell.Row
>
> Das ist Klasse, danke!

Bittesehr und danke dir fürs Feedback.

0 new messages