zwei For+If Schleifen
25.11.2003 11:59:30
Steffen D.
Ich bin dank eurer Hilfe schon viel weiter gekommen.
Nun habe ich noch eine klitze Kleinigkeit :)
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
If Allesdrucken = False Then '[ ] Alles Drucken
myCollection.Item(intIndex).Object.Value = False
End If
If Allesdrucken = True Then '[x] Alles Drucken
myCollection.Item(intIndex).Object.Value = True
End If
Next intIndex
End Sub
******************************************
Ich möchte nun noch folgenden Code mit in die If-Schleife einsetzen:
Dim iRow As Integer
If Sheets("Tabelle1").Cells(iRow, 18).Text = "1" Then
End If
Next iRow
Danke für eure Hilfe
ich hoffe Ihr könnt damit etwas anfangen
Mfg Steffen D.