frage an nepumuk
28.11.2003 09:29:31
steffen d.
Mit der zweiten Schleife möchte ich folgendes erreichen:
Jede Comboxbox steht in einer Spalte wenn die Spalte einen
Wert enthält und die Combobox Allesdrucken gedrückt worden ist,
soll die Combobox auch auf True gesetzt werden.
{
Allesdrucken = True &
If Sheets("Tabelle1").Cells(iRow, 18).Text = "1"
}
Code:
_________________________________________________________
Option Explicit
Public myCollection As New Collection
Public
Sub Allesdrucken_Click()
Dim myOLEObject As OLEObject
For Each myOLEObject In Worksheets("Tabelle1").OLEObjects
If myOLEObject.ProgId = "Forms.CheckBox.1" Then myCollection.Add myOLEObject
Next
Hacken
End Sub
Public
Sub Hacken()
Dim intIndex
For intIndex = 1 To myCollection.Count
myCollection.Item(intIndex).Object.Value = Allesdrucken
Next intIndex
End Sub
__________________________________________________________
Danke für deine Mühe :)
Mfg Steffen D.
Anzeige