zwei For+If Schleifen

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

Betrifft: zwei For+If Schleifen
von: Steffen D.
Geschrieben am: 25.11.2003 11:59:30

Hallo,
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.
Bild


Betrifft: AW: zwei For+If Schleifen
von: Nepumuk
Geschrieben am: 25.11.2003 20:43:40

Hallo Steffen,
bei genauerer Betrachtung bleibt von deinem "Hacken" - Code so viel übrig. Wo soll nun die zweite Schleife hin?

Public

Sub Hacken()
    Dim intIndex
    For intIndex = 1 To myCollection.Count
        myCollection.Item(intIndex).Object.Value = Allesdrucken
    Next intIndex
End Sub


Gruß
Nepumuk


Bild


Betrifft: AW: zwei For+If Schleifen
von: Steffen D.
Geschrieben am: 27.11.2003 09:46:10

Danke Nepumuk für deine Hilfe

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



Bild

Beiträge aus den Excel-Beispielen zum Thema " Absatz in einer MessageBox? Wie geht dem?"