Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
396to400
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
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Checkboxen in Tabellenblatt ansprechen

Checkboxen in Tabellenblatt ansprechen
16.03.2004 10:31:27
Volker
Hallo Excel-Helfer,
Ich habe ein Tabellenblatt programmiert, in dem verschiedene Checkboxen aus der Symbolleiste Steuerelemente-Toolbox enthalten sind. Diese haben alle Fortlaufende Namen bekommen: chb1, chb2, chb3 usw.
Nun will ich über eine For-Next Schleife die ersten drei checkboxen mit dem Value True belegen.
Leider liefert mir
Sheets("Tabelle1").Controls("chb" & i).Value = True
die Fehlermeldung: "Objekt unterstützt diese Eigenschaft und Methode nicht"
Wie muß man es machen? Alles in ein Userform programmieren? Da geht es nämlich so.
Danke!
Volker

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

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen in Tabellenblatt ansprechen
16.03.2004 10:50:27
Hajo_Zi
Hallo Volker
ich bin nun nicht der Fachmann für Steuerelemente in der Tabelle. Aber vielleicht hilft Dir folgendes

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

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 Pro und Excel Version XP Pro


Anzeige
AW: Checkboxen in Tabellenblatt ansprechen
16.03.2004 11:16:11
Volker
Hallo Hajo!
Thanks a lot, this was it:
Sheets("Tabelle1").OLEObjects("chb" & i).Object.Value = True
Gute Woche!
Volker

49 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige