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

Schleife+Variable+Checkbox

Schleife+Variable+Checkbox
23.11.2003 21:04:23
SteffenD.
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife+Variable+Checkbox
23.11.2003 21:37:20
Nepumuk
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige