Schleife+Variable+Checkbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Schleife+Variable+Checkbox
von: SteffenD.
Geschrieben am: 23.11.2003 21:04:23

Guten abend,
Ich habe folgenden Code geschrieben, nur komme ich an einer Stelle nicht
weiter:

Code:
*********************************************
If Drucken.Value = -1 Then
Dim iRow As Integer
For iRow = 16 to WorksheetFunktion.CountA(Columns(1))
If Sheets ("Tabelle1").Cells(iRow, 18).Text = "1" Then
Checkbox & iRow = True
End If
Next iRow
**********************************************
Und bei dieser Stelle komme ich nicht weiter:
Checkbox & iRow = True

Wie hänge ich an die Checkbox1 eine Variable dran?


Besten Dank
das würde mir sehr viel Arbeit ersparen
Mfg Steffen D.

Bild


Betrifft: AW: Schleife+Variable+Checkbox
von: Nepumuk
Geschrieben am: 23.11.2003 21:37:20

Hallo Steffen,
steck die CheckBoxen in eine Collection.
Beispiel:

Option Explicit
Public myCollection As New Collection
Public Sub test1()
    Dim myOLEObject As OLEObject
    For Each myOLEObject In Worksheets("Tabelle2").OLEObjects
        If myOLEObject.ProgId = "Forms.CheckBox.1" Then myCollection.Add myOLEObject
    Next
    test2
End Sub
Public Sub test2() 'setzt alle Checkboxen auf True
    Dim intIndex As Integer
    For intIndex = 1 To myCollection.Count
        myCollection.Item(intIndex).Object.Value = True
    Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild

Beiträge aus den Excel-Beispielen zum Thema " Schleife über Comboboxen in UF"