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

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
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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige