Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Checkboxen über eine Schleife abfragen

Checkboxen über eine Schleife abfragen
01.08.2005 14:21:06
ferry
Hallo liebe Foren-Mitglieder,
ich bin ein Anfänger und bräcuhte Eure hilfe.
Kann mir jemand sagen wie ich über eine Schleife überprüfen kann ob eine Checkbox angeklickt ist?
Ich möchte die 55 Abfragen nicht alle einzeln auflisten.
Gruß und Danke im Voraus
Ferry
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen über eine Schleife abfragen
01.08.2005 14:28:00
Hajo_Zi
Hallo Ferry,
wo sind die?
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Checkboxen über eine Schleife abfragen
01.08.2005 14:32:28
ferry
hallo hajo,
die checkboxen sind nicht in einer userform. sie befinden sich auf einem Arbeitsblatt und sind mit 5 Boxen zu einer gruppe zusammengefaßt.
gruß
ferry
Anzeige
AW: Checkboxen über eine Schleife abfragen
01.08.2005 14:36:33
Hajo_Zi
Hallo Ferry,
mal fdolgender Ansatz.

Private Sub CommandButton1_Click()
Dim I As Integer
For I = 1 To Shapes.Count
If Mid(Shapes(I).Name, 1, 5) = "Check" Then
'           Ausblenden
'            Shapes(I).Visible = Shapes(I).Visible = False
'           wechseln
'            Shapes(I).Visible = Shapes(I).Visible = Shapes(I).Visible = Shapes(I).Visible = False
'           Wert auf True setzen
'            ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = 1
'           Inhalt wechseln
'            ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = 0
'           nur eine Gruppe
If ActiveSheet.OLEObjects("CheckBox" & I).Object.GroupName = "Sorte1" Then
Shapes(I).Visible = Shapes(I).Visible = False
End If
End If
Next I
End Sub

Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
AW: Checkboxen über eine Schleife abfragen
01.08.2005 15:30:49
ferry
hallo Hajo,
danke vielmals für deine Mühe.
da blicke ich nicht mehr durch:)
ich dachte an folgende anweisung:
ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = False
im folgendem Zusammenhang:
For j = 5 To 7
'If Worksheets("Sheet1").OLEObjects("CheckBox" & i).Enabled Then
If Worksheets("Sheet1").OLEObjects("Checkbox" & I).Object.Value = True Then
Worksheets("Tabelle2").Cells(ActiveCell.Row, j).Value = _
"Pot in aktueller Position bestätigt"
End If
Next
Ich bekomme aber die fehlermeldung anwendung- oder objektdefinierter fehler.
gruß
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige